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1 /•«•«•» FOCAL, 5/69 •♦••••••« 

2 

3 EXPUNGE 

4 /PROCESSOR INSTkUCTIONS 

5 FIXMRI AND=0000 

6 F|XMRI TAU=1000 

7 FIXMRI ISi? = 2000 
6 FiXMPI UCA = 300i3 
9 FIXMRI JMS=4000 

lid FIXMRI JMp = 5ntf0 

jl /KLUAlIhG FUINT INSTRUCTIONS 

12 FJXHRI FPW=0F00 

13 FIXMRI FAU=1000 

14 FIXMRI FSB = 2f.00 
It? FIXMRI FMY=3000 

16 FIXMRI Ff)V = 4000 

17 FIXMRI fGTs5000 
1H FIXMRI FPT=6?00 
19 
20 
21 
22 
23 
24 
23 
26 
27 
2tt 
29 
30 
31 
32 

34 
35 
36 
57 
3b 
39 
40 
41 
42 
4 3 
44 
4b 
46 
4 7 
4d 
49 
50 
51 
52 



7000 


FNR=700W 


0000 


FfcXT=0 


4407 


FtNT=JMS I 7 


7000 


NUP=7tffltf 


7200 


CLA=7200 


7100 


CLL=7100 


7040 


CMA=7040 


7004 


RAL=70«4 


7020 


CML=702fc 


7010 


RAHs701« 


7012 


R1R = 7H2 


7006 


RfL*7006 


7001 


IACS7001 


7500 


SMA=75«0 


7440 


S*fA = 744tt 


7510 


SPA=7510 


7450 


SMA=7450 


7420 


SNL-7420 


7430 


SifL = 7430 


7410 


SKP=7410 


7041 


CIA=7041 


6001 


!ON=60tfl 


6002 


IUF=6*02 


6031 


Kt>Fs6lo31 


6036 


KWR = 6ic36 


6041 


TbF=6k:'41 


6042 


TCF=6t;42 


6044 


TPC=6tf44 


6046 


TLS=6fc46 


6011 


RSI- =6011 


6012 


RK»=6012 


6014 


RMJ = 6tfl4 




F I XT AH 
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53 

54 / * FUCAL * - BY KICK MERRILL - FOR THF FAMILY UF 8. 

55 /KEvISEU BY FUwA^iJ 7AFT 5/*9 
5 6 ' 

5/ /MlSOtLLANEOUS ITEMS 

->6 ftidir.l «1 

59 ^001 54K<2 JMH I ,+i /INTERRUPT PROCESSOR EmT°Y 

60 i '002 ? 6 « 3 INTRP1 

61 i*M6 74 7 7 MliJuSA. -3^1 /CONSTANT 

62 0004 00H0 FJEbS*. /USED FOR CALCULATING SIGNS 
fc3 0005 0013 P13, 13 /CONSTANT 

64 0006 0100 C100. ltftf /CONSTANT 

65 0007 6600 FHM /ADDRESS OF FLOATING POINT INTERPRETER. 
66 

67 /AUTO-INDEX REGISTERS 

68 

b9 0010 0000 AXlfSi, /STORAGE INDEX 

70 0011 0000 XRT, /EXTRA XR 

71 U012 0000 XKT2. /LXTRA XP 

72 0013 0000 PULxR, /PUSHDOWN LIST INDEX REGISTER. 

73 0014 3377 FLTXh, ?UHUf--j /XR15 FOR FLOATING POINT 

74 ^015 0200 C200» 2Mtf /CONSTANT 

75 <*016 0000 Xr<T3, f> /USED HY PUSHDOWN LIST CONTROLS 
76 

77 

76 0017 TEXIP=. /TEXT POINTERS 

79 '*017 3430 AX0UT» FRSIX /UUTPUT INOEx 

60 H020 01000 XCT, /UNPACK SWITCH 

81 0021 0000 G1F.1, /UNPACK STORAGE 

«2 

03 /NUMPER5 

84 

85 0022 0256 PER; 256 /PERIOD 

86 0023 7701 M77. -77 /RIGHT MASK 
67 0024 76fc0 P7600, 76^0 /GROOP M4SK 
^6 0025 7760. M20, -2fc /CONSTANT 

89 0026 0177 P177, 177 /STEP MASK 

90 0027 5577 BUTTON. DBCOf\ V-l/END OF TEXT BUFFER 

91 ' 4430 FLOAT= JMS I . /FLOAT C(AC) SUBROUUNF 

92 0030 7332 XFLOAT 

93 0031 D017 Pt7, 17 /BCD MASK 

94 0032 0277 P277* 277 /"?" 

95 0033 0240 C24zj, 240 /SPACE 

96 0034 7776 M2. -2 /CONSTANT 

97 0035 0002 P2. 2 /CONSTANT 

98 /036 0260 C26W, 260 /ASCII FOR 2FR0 

99 /037 0000 HiNBUF, /HIGH SPFEO INPUT HUFFFR 



/•••••* FOCAL. 5/69 **«**»*«« PAL10 Vl^l 6-JUE-7U lH3tt PAGE 3 

100 

101 0040 FLOP=. /FLOATING OPERAND STORAGE 

102 0040 000k! FLOP0* \A 

103 0041 FW00 FLOPt, 

104 0K-4 2 PHH0 FLOP?, c* 

10b ^043 00^ Flops, m 

106 £044 FLAC=. /FLOATING PUINT ACCUMUlATOP 

107 £044 0000 FLAU0» P» 
10d 0045 0000 FLACt* H 

109 0046 0000 FLAC?» P 

110 0047 001^0 FLAC3* 

111 4450 NLGATL= JMS I , /LEGATE FLAG ROUTINE 

112 0050 6676 MEGAC 

113 <*051 0010 TUTDIG, ifc /TOTAL DIGITS IN OUTPUT FIELD 

114 4452 FiX= JMS I . /FIX FLAG ROUTINE 

115 0052 7331 XEIX 

116 0053 0*300 TAHCTK, « /CARRIAGE INDEX 
117 

116 /CONSTANTS 

119 

120 

121 0054 LIST6=. /INPUT LIST FOR "SFOUND". 

122 0054 0337 P337* 337 /LEFT ARR 

123 .4055 0214 214 /K.E. 

124 *'<056 02^-7 2tf7 /tfELL 

125 H057 0212 CLE, ?1? /L,F, 

126 0060 LIST3=. /EXCRETION LIST 

127 /-060 0215 CON, ?15 /LIST BRANCHER, 

12H 14061 P000 /SEARCH CHARACTER (VARlAPLfc) 
129 

130 0M62 M106= t 

131 0062 7700 P7700, 7700 /LEET MASK 

132 0063 7540 M240, -240 /SPACE TEST 

133 0064 7522 MPER* -256 /PERIOD TEST 

134 0065 7563 MCR, -215 /C.R. TEST 

135 0066 M!>LT=, /3-WOHO FLOATING POINT 

136 0066 7775* M4, -3 

137 0067 7773 M5, -5 /PAREN TEST 

138 0078 7767 Mil* -H /PAREN TEST 

139 0071 0077 P77, 77 /RIGHT MASK 
140 

141 H072 6170 FUU1PUT;BDC0NV /FLOATING OUTPUT 

142 0073 5600 EiNPUl, PBCONV /FLOATING INPUT 

143 "1074 2527 CUHtsUE. COMEIN /COMMAND BUFFER START 

144 1*075 3420 CERS> ERST /ADDRESS OF DUMMY LINE. 

145 0076 3432 END, RUEbEG /FIRST LOCATION USED. 

146 0077 3432 ENDT, RUEeEG /START OF STORAGE AREA »» 

147 5500 RLTUP.M= JMP I . /FUNCTION RETURN 

148 0100 2056 EEUN3I. EEUN3 



149 








150 






/NEw INSTRUCTIOi 


151 








1^>2 




4501 


PUSHJ=JHS I . 


153 


v»t01 


0523 


XPUSHJ 


154 




1413 


PUPA:: Ml) I PPlXi 


15* 




5502 


POPJsJMp I . 


156 


0102 


1556 


XPOPJ 


157 




4503 


PUSMAsJMS I . 


156 


0103 


0501 


XPUShA 


159 




4504 


PUSHP=JMS 1 . 


160 


0104 


0532 


PD2 


161 




4505 


POPI-rJMS I . 


162 


0105 


0550 


PU3 


163 




451*6 


GtTC=JMb I . 


104 


0106 


2315 


UTKA 


165 




4*rt7 


PACKC=JHS I . 


166 


Wife' 7 


3023 


PACtfUF 


107 




4510 


SUWTjsJMS I . 


166 


0110 


1333 


SORTR 


169 




4511 


SURTC=JMS ! . 


170 


0111 


P733 


XSORTC 


171 




4512 


PKIMUsJMS I . 


172 


0112 


2477 


OUT 


173 




4513 


KtAOCsJMS I . 


174 


"1113 


2463 


CHIN 


17*- 




4514 


PHNTLN=JMS I . 


17b 


0114 


6151 


XPRNTLN 


177 




4515 


GETLN=JMS I . 


178 


mi* 


0312 


XGETLN 


179 




4*16 


F!NDLN = w|MS I , 


160 


/ill 6 


2265 


XFINP 


161 




4517 


RNOLMsJMS I . 


162 


i*117 


2417 


XtNDLN 


163 




4520 


R»Lo=JMb I . 


164 


dl20 


31*5 


XRTL6 


16*? 




4521 


SPNOR=JMS 1 . 


106 


/>121 


1524 


XSPNOK 


1»7 




4522 


TESTW=JnS I . 


1H6 


0122 


1*33 


XTESTN 


169 




4523 


TSTLPH=JMS I . 


190 


"123 


2077 


I.PRTS1 


191 




4524 


T6TG^P=JMS I . 


192 


/1?4 


24*1 


gkptst 


193 




4525 


TcS1C=JwS I . 


194 


*12* 


0713 


XTLSTC 


1*5 




4526 


tHKuRsJrtS I . 


190 


0126 


2736 


FHR2 
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MS : 

/RECURSIVE SUBROUTINE CALL 

</r<F$TORE AC 
/SUBROUTINE RETURN 

/SAVE AC 

/SAVF GROUP OF OATA 

/RESTORE GROUP 

/UNPACK A CHARACTER 

/PACK A CHARACTER 

ySORT AND BRANCH ON AC OR CHAR 

/SORT CHAR 

/PRINT AC OR CHAR 

/READ ASR-33 INTO CHAR ANO PRINT IT 

/PRINT C(LINENO) 

/UNPACK AND FORM A LfNFNUMBER 

/SEARCH FOP A GIVEN LINE 

/INSERT LINE POINTERS 

/ROTATE LEFT SIX 

/IGNORE SPACES AND LEADING 2ER0S 

/PERIOD; OTHER; NUMBER 

/SKIP IF 5<S0RTCN<* il (I.E. AN L-PAR) 

/SKIP IF G(AC) = G(LINFNO) 

/TERM; NUMHER; FUNCTION; LETTER 

/GENERAL ERROR ROUTINE 



/*««»«« F C A L # 5 / 6 u #»«»»«*«* 



PAt 1* 



V 1 4 1 



*-JUL-7w 



ti:.5H 



PAGt 5 



197 










199 


in 2 7 


</i tf »;< 


suPrcN. 


«/, 


?rttf 


<*l3tf 


C'Jli'/lfl 


LASHr. 


V; 


2^1 




i* 131 


FM.)H=, 




2^2 


^131 


C': b /• t» 


A T S t, , 




2"3 


<U32 


776d 


OTk, 


- ( > ■ • 


2H4 










2 "J 5 


--133 


i ' # ■/• 4 


OtCr, 


/I 


2* ft 










2*7 




f'134 


S I A r< T V = 


, 


2**tf 










2*) 9 


«134 


3432 


RuF s» 


^UFtfFG 


21v3 










211 


i«l35 


fr tf f y 


A -j.]. 


is 


212 


•U3o 


U *3 /. ici 


*cn*. 


i' 


21,5 


^137 


2675 


00 Fuf V , 


XOUTL 


214 


^140 


2655 


I -vie v » 


/I 33 


21b 










216 


^141 


^kif 1 


NAGi>W# 


tfi-vu 


217 


^142 


?215 


CHAR, 


215 


2l« 


"143 


P *H'. 


L iNh^U, 


l^tftf 


219 


tfl44 


PdtfS 


GiNC. 


5 


22tf 










221 


i" 1 4 5 


1^75 


PC, 


FLTtFh 


222 


1*146 


M y '/• 


THIbLw» 


n 


223 


v> 1 4 7 


(- «6 


TrilS0P» 


<? 


224 


n5id 


ir tivt 


L A s r L n * 




22 5 


*151 


V ti '/■ 1 


IJtHGS* , 


t 


226 


0152 


i, WV'l 


UMP^W, 


1 


227 


(*153 


f5*JWtf 


PAC»sSI , 


o 


22ri 


^154 


Ptftftf 


Pll, 


•;*. 


229 


"5155 


3432 


LASTV, 


RUFBFG 


23tf 


/•156 


Prit'jtf 


Tl, 


f / 


241 


^1S7 


Ptf^tf 


T2. 


« 


232 


/160 


2^34 


FlakGH, 


FL4KG 


234 


"5161 


2463 


rich. 


CmIm 


24 4 






/uSi_0 H 


Y NFk FL 


235 


4*162 


PtftfvJ 


TtMPl, 


V 


236 


fe)163 


P00k$ 


Tt^P?, 


¥ 


237 


H164 


frigid 


TtMP.T, 





23d 




4565 


T6TtP^= 


JMS I . 


239 


'4165 


2514 




XTSTFKM 


24*1 




? *) »■■■ 6 


niGITo= 


6 



/ lUMHL-^ IN TABLE FROM SORTC 

/LAST OPFRATION FUR EVAL 

/FUNCTION COOt. 

/«SK-FYpF SWITCH 

/UKLh'n AMI FRROR CO«JNTE"(Ushl) 

/nUmRER. OF -UF.CIMAL PHIfilS 



HV F.P. A LSD 



/ = FNO FOP KK 

HuFs» MtFbFG /^mFXT LOCATION IN BUF.FFH = LAS! LOCATION OF TEXT. 

/CHAP tOF IMPUT 
/PACK S*!1CH 

/uutpui sopkoutinf; 

/INPUT SUrtROOTlNL 

/ nJO r ALL ANu/OR GHOUP SWITCH < «i»*Ad = UNL ? 1 = AL L J 8 = Ut- Gi-r' ) 
/THE MOST IMPORTANT RLGISTFk 
/LINF ^UMdF_R KF AH RY GF TLN 
/hOROS TO STORF 1 VA^IABLL 

/PROGRAM COU^TFR 
/LIfvF POINTLR FROM 'FIHUL'M' 
/CURRENT •Fv'AL* OPERATION 
/HACK POINTER FROM •FIMiLN' 
/UF.BUG bWlTCH ? NUN-?ERl) FOR LITERAL. 
/=« FOH TRACE ON. 
/RUbOUT PROTECTION 
/VARIAPLF POINTER 
/AOURESS OF LAST VARIAPLF 
/TEMPORARY REGISTER - *AIN 
/TEMP REGISTER - FOR NFw INST. ROUTINES. 
/UATA AOORESS 

/GENERAL CHARACTER INPUT ROUTINE. 
NF k FLOATING PT. PACKAGE 



/FFST FOR ,;CR 

/RETURNS! OTHER, ; OR CM, COMMA 

/SIGNIFICANT UIGITS 
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241 /KtlCAL'b COMMAND/INPUT ORIVER 
24? 

243 /LOCATION 176 SET TO 8FGIN FOR INITIALISATION, THEN TO 

244 /KECOVRtl THEREAFTER, f OP CONSOLE START AT 0200 

245 0177 *177 

246 0177 7610 SIAHT. SKP CLA /PROGRAM START FROM SELF 

247 02*0 5*576 JMP I .-? /CONSOLE START: SW = 2«0. 
246 0201 1227 TAU CFRSX /(PC) => 

249 0202 3145 OCA PC /FOR COMMAND MODF 

21A 0203 3151 DCA DtHGSw /EnaHLE TRACE FOR INPUT OF (?). 

251 0204 1226 TAD COMBO'f /PROTECT COMMAND BUFFER. 

252 0205 3013 OCA PULXR /NO PATCH TEST. 

253 0206 2152 !S2 DMPSW /INIT UNPACK AND TRACE SWITCH. 

254 0207 3061 OCA LIST3+1 /CLEAR SEARCH CHARACTER FOR INPUT, 

255 0210 1054 TAD P337 /ANNOUNCE PRESENCE 

2^6 0211 4512 PRINTC /BY TYPING THE LFAD-IN CHARACTER 

257 0212 1074 IbARi TAO COMBUF /INITIALISE COMMAND BUFFER 

258 0213 3010 OCA AXIN /FOR UNPACKING. 

259 0214 3136 OCA XCTLN 

260 0215 1074 TAD COM«UF /RUBOUT PROTECTION 

261 0216 3153 OCA PACKST - 

262 0217 4513 IGNUR, READC /READ COMMAND STRING 

263 0220 4510 SOHTJ 

264 0221 W053 LIST6-1 

265 0222 0510 INLIST-LIST6 

266 0223 4507 PACKC /SAVE STRING CHARACTER. 

267 0224 5217 JMP IGNOR 
26d ///// 

269 0225 4000 P4"5c0, 4000 /LINE NUMBER TEST 

270 0226 2612 CUHdOT, COMOUT+1? /END OF COMMAND RUFFER»LESS PROTECTION COUNT. 

271 M2?7 1575 CFRSX, FLT2ER /POINTER FOR PC«COMMANO OR INPUT 

272 ///// 
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a-JUL-70 
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273 
274 
27o 

276 
27 7 
27o 
'dlv 
2Bv 
2*1 
2^2 
?«3 
2*4 

2*5*5 
2«6 
2rt7 

?tid 
2bv 

2*0 
2^1 
292 
2^.5 
294 
2 y :> 
296 
2^7 
29*3 

?v^ 
3v» 
.5" 1 
3^2 
3*ii 
304 
3tf* 
3 /'ft 
3v<7 
3-Vi 
3tf* 
31 w 
311 
312 
313 
314 
31^ 
316 
317 
314 
319 
3>0 
321 
322 
3 ^ x 
324 
3^* 



/COrjMANU/ INPUT PPU.CLSSOk 



4230 
42M 
<232 
'233 
"234 
".'23* 
w236 
'237 

>/i?4 

1241 
(3242 

i-24 3 
«r24 4 
024* 
•.'24 6 
»24/ 
t 2*«5 
f*2*l 
5*2*2 
2*3 
t'2*4 

■2*5 
<"2 K 6 
t* 2!^ 7 
2 r 

^2*1 
^262 
M2*>3 
026 4 
«265 
^2*6 
*267 
"•2/0 
-)271 
0272 
''•273 

^274 

u?75 
•4 2 76 
^7 7 
"3* 
t*301 
/3P2 
/303 
•i3'i4 



4*^7 

4*1-7 

11*74 
3wl7 
3k)20 
4*06 
1*3 27 
3«Jl3 
4*21 
4*22 
4*26 
S274 
6 u \ ) 2 
?1*1 
4*1* 
1141 
1225 
7640 
4526 
1134 
3010 
3136 
1143 
3410 
4t>21 
7410 
4*06 
4*07 
1142 
1065 
7640 
5262 
4501 
2111 
4*17 
51/7 

4*01 
0616 
1*45 
74*tf 
Sl/7 
314* 
1 14* 
70^1 
5233 



lKET>v. 



GU-vL, 



PACKC 

PACKC 

TAP CuMbl'K 

I * t: A aaGuT 

»»CA XCT 

Gl TC 

TAP »-.UTTPM 

MCA EULXF 

SPNUP 

TtSTN 

FRR0P4 

JMP INPUTA 

IUF" 

IS/ PEBGSW 

GETLN 

TAP NAGSW 

TA!) R4000 

S*A CLA 

EKRUH3 

TAP PUFR 

PC A AX IN 

PCA XCT IN 

TAG LINtPiJ 

PCA 1 AX IN 

SPf"UH 

SKE 

GETC 

PACKC 

TAi* CHAR 

TAP MCR 

Sj*A CLA 

JMP .-* 

PUSHJ 



///// 

IN^UTX, 



DELETE 



ENPLN 
JMP STAHT 



PUSHJ 



PROC 



/START TO PACK C.R. 
/F IiSlSH C.R. 
/INIUALI2E -TFXTP" 
/SETUP CURRENT LINE 

/HFAP FIRST CHARACTER. 
/INIT PUSH-DOWK'-t 1ST 

/IGNDHL LEADING PLANKS 

/DOES THE LINE BFGlN WITH 1-9? 

/ILLEGAL GROUP 2ERO USAGE 

/NO 

/YFS,STOP INPUT MOMENTARILY. 

/UISABLE TRACE FOR REPACKING 

/REAP THIS LINE NUMbER 

/TEST FOR SINGLE LINE 

/ILLEGAL LINE NUMBER ON INPUT 
/SET POINTFRS 



/SAVE LINE * 
/(X-MEH) 

/IGNOHE SPACES AFTER LINF NUMBER 

/READ 1ST AFTER LINENO TERMINATOR, 
/SAVE TEXT AND RESTORE DATA FIELD 
/TEST FOR END OF INPUT STRING 



/REMOVE OLD LINE; IF ANY. 



/INSERT NEW LINE 



/PROCESS IMMEDIATE COMMANO. 



TAP I PC 

SNA 

JMP ST Art T 

PCA PC 

TAP ^C 

IAC 

JNP GONE 
/I EXT L I ML BUFFER FUR"Ul* 
/*1 : '-CIxTry j K tEHO IN LAST 
f*i : Li*t"U 
/ u s - « ■ ,m + 1 : I E x T 
/ -/ i : G . »*' . 



/CHECK NEAT LINE <X-MEi"> 

/ENO OF PROGRAM? 

/YFS 

/SAVE NEW LINE NO. 

/START NFh LINE 

/PROCESS OTHER COMMANDS 
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PAL1P 



VI 41 



A-JUL-7I^ 



li:38 



MAGE b 



326 
327 
328 
329 
33vj 
331 
33* 
333 
3- "j 4 
33o 
336 
,W 
33d 
339 
34/ 
341 
3«2 
34 3 
34 4 
345 
346 
347 
346 
349 
33 rf 
351 
332 
333 
334 
335 
33o 
337 
338 
339 
360 
361 
362 
36 3 
3o4 
3o5 
366 
3o 7 
368 
3^9 



t*3n5 
* 3 -d 6 
^3V'7 
vs 3 1 
V 3 1 1 



-•312 
*313 
'/314 
v.-.31b 
U316 
0317 
tf3?e> 
v321 
tf322 
/53?3 
</»324 
0325 
^326 
®327 
*330 
5! 331 
t>332 
("333 
«"334 
t335 
L-1336 
P337 

H341 
V5342 
0343 
W344 
0345 
0346 
0347 
354 
H351 
03*2 
^353 
*3*>4 
^355 



71^6 

7 0^6 
7 fc v- 6 
5 /to 



It '/■ t 

4321 

1225 

3141 

4311 

6114 

337/j 

4 766 

43 22 

4t>^'6 

4336 

71k 6 

1127 

7wy«4 

4x336 

1143 

7460 

3141 

314 3 

1164 

745tf 

334 7 

43^0 

7tfM4 

1143 

3143 

1164 

03fc7 

5351 • 

2141 

1143 

765tf 

4522 

5361 

5712 

5361 



Xn TL6# 



'/> 

CLL R 
KTL . 
RTL 
JMP--I 



GtXi T. 



/PRUCtSS A LI 

XbtTL^» * 

SPr-OR 
Tah P 

JMP E 
JHS I 
TEST* 
GEIC 

jms r, 

CLL 

TAP 
PAL 
JMS 

T A * > 
Sis A 

hca l 

TAi» ! 
SNA 
JKP 
RTL6 
KAL 
7 AU 
I J C A 
TAD 
AND C 
JMP . 
IS? N 
TAD L 
SNA 
TLSTM 
JMP L 
JrtP I 
JhP L 



/ROTATE AC LEFT 6 
IL 

XwTL* 

IMF MtiMbt H 



4vifc : '> 
A G S fc 

S'vLIST 
VL*M 

Ir Pf NT 



- ."GETLN" 

/INITIALISE TO SINGLE LpiE 
/TEST FOR A SIGN 



-1 



EG 
IL 
OPTGim 

tG 
INEK» 

AbbN 
I'mE^O 

G I EST A 



GIE6TA, 



INENO 
INENU 
ECNtM 
7 76W 
♦ 3 

AGSW 
I NEMO 
LA 

*EkR 

XGFTLN 
NFkP 



/LVALUATE IN FLOATING POINT 
/F IXEO POINT : GET GhOUP 

/GO PAST . IF THERE 
/GET 1ST STEP niGIT 
/MULTIPLY RY TEN 



/GFl 2N-U STEP HIGIT 
/COMR-I^E 

/MOST ftt GROUP 

/save step numrer 

/GROUP 

/GROUP 10: MUST rfF m aLL" 
/CONSTRUCT LINE NUMBER 



/TEST FOR LEGAL GROUP 



/SET TO "ALL" 

/MAKE SURE LINE # IS U RO 

/OK; TEST FOR EXTRA OIGITS 

/UOURLE .. ILLEGAL G. to, OP G.>i5 

/OK 

/TOO MANY HIGITS 
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37rf 

371 6356 tftf^tf Gl(,, y\ /oFT A STEP OIGM 

372 v)ib7 3143 OCA I. INtMU 
3/3 v:3fcd 4322 TESJn 

374 <^36i 4526 L it-'rfW, PPPO^ /UOUHLF PERIOU^ 

3't> * 362 5331 Jr-P f-tup-i /\n MGIT 

3/6 liH 4 5<"6 f "; t 1 C /DIGIT, PASS IT 

377 ^364 1127 lAt SjkTC. /EXIT KITH VALUE 

3/o i*3f5 5 756 . JNP 1 GiG 

3 7 9 / / / / / 

3^1 t-3«>6 6tfltf I'vPJMT. PLi'IM 

3*1 V-367 7760 C77ovW 776*) 

3*2 ///// 

3«3 /tVALt'ATF A LINE NUMREP TO FLOATING POINT 

3*4 v*370 4r>v)l tvl *, PbhriJ /GFT VALUE 

.}*5 t'37l 16t-l FVAL 

3?6 H372 44S2 Fix /GET GROUP # 

3o7 i'373 45i.i3 PuSHA 

3*8 '-374 1045 TAt FLAC1 

3>W t*375 764k3 S af ^ CLA 

3 4 '0 t?376 53ftl JMP LnEKP /I 00 bIG 

3*1 0377 44tf7 PENT /GET STEP # 

3*2 tM«U 7tftf») FNh^ 

^3 ^'4*r 1 2060 FS!' I FLAKGH /THIS GIVES -(FRACTIONAL PakT) 

394 i*4t'2 3614 FMY I Flfc»P 

395 ■'•4^3 3C14 ftfY I Fl<7P 

396 ?-'4P4 2615 Fhh \ FPnoP /KILL ANY ROUNDOFF FRRMw 
3*7 v4?5 ^N FL>T 

39« *4**6 445tf NEGATE 

3^9 i,.4k"7 1413 PUFA /HFSTOPE GROUP 

4*10 i-410 3164 OCA DtCNlHi 

4*<1 (411 4452 FIX 

4^2 i'412 5613 Jf^P 1 ,+j 

4U3 ('413 P332 GtXIT 

4 H 4 ///// 

4i>5 M14 577*5 FUV, FLTt»v 

4V16 P415 5773' FPleip, FLPTEN 

4*7 

4^8 /KANGE UF ACCLPTltJLE LlNF NUHtJFRS = l.wi TO 15. 99 

409 

410 . /NAGSw: 

4J1 /uPl'rP = bWkiV» 

412 . /LlNF=4fc0!0 

413 /aLL = W0*-1 
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414 




/r 


ECUNSJVE OPERATE, EXE! 


415 








416 


**416 


4515 Ou 


GETLN 


417 


*417 


1145 


TAD PC 


418 


M?U 


4503 


PUSH* 


419 


H421 


450 4 


PUSHF 


4^0 


£422 


8017 


TEXTP 


421 


k'423 


4504 . PGRP, PUSHF 


A22 


0424 


0141 


NAGSW 


423 


fr425 


1141 


TAD NAGSM 


424 


F4?6 


771tf 


5PA CLA 


425 


tf427 


5254 


JMP OOONF 


426 


45430 


4516. 


FINOLN 


427 


0431 


5273 


JMP TGHP? 


426 


0432 


4501 OUfiPl. PUSHJ 


429 


0453 


0613 


PROCESS 


4,5*1 


£434 


45t>5 


POPF 


431 


0435 


0141 


NAGSW 


432 


0436 


1545 


TAD 1 PC 


433 


0437 


7450 


SNA 


434 


0440 


5262 


JMP OCONT 


435 


0441 


7001 


!AC 


436 


0442 


3154 


OCA PT1 


437 


0443 


1141 


TAfJ NAGSW 


438 


2444 


7740 


SMA S2A CLA 


4^9 


*445 


5251 


JMP ,*4 


AAid 


9446 


1554 


TAD I PT1 


441 


IM47 


4524 


TSTGRP 


442 


M5U 


5262 


JMP OCONT 


443 


rf451 


1554 


TAD I PTl 


444 


M52 


3143 


OCA LINENQ 


445 


0453 


5223 


JMP OGRP 


446 




///// 


447 


6454 


451$ DUONE, FINDLN 


448 


M55 


4526 


ERR0R2 


4*9 


f 456 


4501 


PUSHJ 


450 


0457 


0615 


PROCESS 


451 


0460 


4505 


POPF 


452 


0461 


0141 


NAGSW 


453 


0462 


4505 OCONT, POPF 


454 


0463 


IW17 


TEXTP 


455 


0464 


1413 


POPA 


456 


'/465 


3145 


DCA PC 


457 


<466 


4565 


TSTERM 


458 


0467 


5266 


JMP .-1 


459 


•>47tf 


5672 


JMP I .+2 


460 


0471 


5216 


JMP no 


461 


i>472 


0616 


PROC 



/EXECUTE ONE LINE, A GROUP. OR ALL 

/SAVE AODRESS 

/OF CURRENT LfWC 

/SAVE REST OF THIS LINE 

/ADDRESS OF TEXT POINTERS 

/SAVE NAGSW! CHAR; AND LINENO. 

/CHECK DATA FROM GETLN. 

/SKIP IF GPOUP OR ALL 

/UG ONE LINE 

/INIT FOR CRDtfP UNO SET THISLW 

/EXECUTE OBJECT LINE ANO SET PC. 

/RESTORE THE ^ATA 

/CHECK FOR fcNB OP TEXT (X-HEHI 

/ALL OONE 

/SAVE POINTER TO LlNEKO ~ 
/CHECK FOR CROUP 

/OO ALL 

/TEST CROUP <X*HEH> - -- ■ 

/NOT IN CROUP 

/READ NEXT LINE NO. (X-MEM) 

/CONTINUE THE SUBROUTINE 

/FIND THE LINE 

/NO SUCH LINE NUMBER 

/EXECUTE IT 

/RESTORE CHAR 

/RESTORE TEXT POINTERS 

/RESTORE ADDRESS OF CURRFNT LINE. 

/GO TO TERMINATOR 

/END OF DO, CONTINUE PROCESSING 
/COMMA. DO ANOTHER 
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TbkH?, TAD THlSL* /TEST FOR GOOD GROUP NUMBER. 
OCA XKT 
TAD I XHT 
TSTGKP 

EKHUR2 /NO SUCH GROUP NUMBER 

JMP DGRP1 



4^2 






4*3 


H474 


1146 


4^4 


H474 


3011 


4o5 


H475 


1411 


4^6 


i*4 76 


4324 


4r>7 


t477 


4526 


46tt 


^5^0 


5232 
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469 






/PUSHDOWN LIS! CPNTRl 


470 






/ 






471 


*501 


0000 


xpusha* 







472 


0502 


3332 




PC A 


PU2 


4/3 


H503 


7W40 




CrtA 




4 74 


0504 


4310 




JMS 


RCHK 


475 


0505 


1332 




T A l ) 


F-U2 


4 76 


f*5#6 


3416 




OCA 


I XRT3 


477 


0507 


57W1 




Jtf^ 


I XPUSHA 


47d 






///// 






479 


V1510 


01000 


PCHfii 







4<30 


*5U 


1013 




TAD 


POLXR 


4dl 


0512 


3013 




OCA 


POLXR 


4'i2 


0513 


1013 




T A 


POLXR 


4^3 


0514 


3016 




OCA 


XRT3 


4*4 


0515 


1*13 




TAO 


POLXR 


4 15 


0516 


7141 




CLt 


CIA 


4 06 


^517 


1155 




TAD 


LASTV 


4«7 


0520 


7630 




$*L 


CLA 


4«6 


^521 


4526 




tRKOR 


409 


0522 


5710 




JttP 


I PCHK 


490 






///// 






491 


£523 


0000 


XPUSHJ. 







4^2 


*524 


7201 




CLA 


IAC 


4 93 


0525 


1323 




TAD 


XPUSMJ 


494 


0526 


4301 




JMS 


XPUSHA 


4*5 


0527 


1723 




TAD 


I X PUSH J 


4V6 


0530 


3323 




OCA 


XPUSMJ 


497 


«531 


5723 




JMP 


I XPUSHJ 


49d 






///// 






4*9 ' 


0532 


0000 


PU2, 







5«0 


0533 


7240 




CLA 


CrtA 


5^1 


0534 


1732 




TAIJ 


I PD? 


5to2 


0535 


3011 




MCA 


XRT 


5*3 


0536 


2332 




IS* 


P02 


5*4 


0537 


1066 




TAiJ 


P3 


505 


0540 


4310 




JMS 


PCHK 


506 


0541 


1411 




TAi) 


I XHT 


507 


0542 


3416 




DCA 


I XRT3 


5^8 


0543 


1411 




TAD 


I XRT 


57*9 


0544 


3416 




ncA 


I XRT3 


510 


0545 


1411 




TAP 


I XRT 


511 


0546 


3416 




pca 


I XRT3 


512 


ii*>47 


5732 




jmp 


I PU2 



/PUSHDOWN THE AC - -PUSHA* 

/SAVE AC 

/HACK UP POINTER 

/CHECK CORE -USAGF 

/SAVE 



/INC IN AC 
/DUPLICATE POINTER 

/STORAGE FILLED BY PUSHDOWN LIST 

/RECURSIVE SUBROUTINE CALL - "PUSHJ" 

/SAVE RETURN 

/(PUSHA) 

/TO NEW ROUTINE 



/SAVE A FLOATING PT NUMBER 
/COMPUTE ADDRESS 



/BACKUP THREE 
/SAVE 3 WORDS 



"PUSHF" 
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513 
514 
51b 
51b 

51 / 
*> 1 1 
5.1 * 
5^tf 
4>1 
•-.;2 
'- >3 
5 24 
525 
5/6 
5// 

52 d 
52* 

H .-> vl 
5.H 
532 
533 
534 
535 
536 

53 7 
53b 
53V 
54w 
541 
542 
543 
544 
54:5 
546 
547 
546 

549 

550 



K558J 

^551 
>*552 
i*553 
■5M 

0555 
-556 
1,55 7 

.■ 5f-0 

Vi56 2 
f»563 



"564 
•/■565 
•/566 
t 56 7 
-570 



^571 
'•^5 7 2 
"573 
/5 74 
•5 75 
"576 
1^577 
.-•600 
^>601 
6G2 
06KJ 
y»604 
«6*5 
0606 



n000 

7240 
175*5 

?v35W 

1 t-J 1 1 
141a 
?4H 
1413 
3411 
1 413 
3 411 
5 75 



i*212 
•'•2^3 
(223 
t'217 
1*230 



2^53 
7535 
1156 
1145 
7351 
1153 
2414 
2735 
2735 
2 735 
2735 
2735 
7462 
2735 



P.J 3, 



/RESTORE A FLOATING PT # - "POPF* 



(.'LA 
1 AM 
TS/ 

r> c a 
injA 

1 Ah 

TAf- 

MCA 
JhP 



(MA 
T PU3 
PL) 3 

Pt-LAP 

XKT 

PijI.aR 

XkT 

PlJLXR 

XRT 

PiJ3 



/ 

/l^PUT 
I 'Ml. I S T j 



0607 7472 



CONTROL CHARACTERS 

IhAR /*.A.=RLSTART 

IG*0R*4 /Y .F. 

JL,f*UR*4 /hFLL 

IGfOP /L.F, =IGMOREO 

JKFTK /C.R.=TERrtlNATF INPUT 
/ 

/LIST OF FUhCTIU* ADDRESSES 

F^TaPI-» *AHS /ABSOLUTE VALUF 

FSGN /SIGN PARf 

Xlf'T /INTEGER PART 

XUYS /KOIS- DISPLAY Y AND INTENSIFY 

FRAN /rtANOOM NUMBER 

XUXS /SE1 X-COOROINATF FOR DISPLAY 

XAl'iC /HEAD ANALOG-DIGITAL CONVERTER 

FKK0P5 /ATN THESE ROUTINES NOT IN PACKAGE 

ENR0R5 /EXP 

EKR0R5 /LOG 

ERK0R5 /SIN 

FRROR5 /COS 

FS'JT /SQUARE ROOT 

FRROR5 /NEW- USFR-DEFINED FUNCTION 
/ 

MF . -306 /USED PY TFSTC 
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551 
5">2 
553 
554 
555 
55.6 
557 
556 
559 
560 
561 
562 
563 
564 
565 
566 
567 
568 
569 
570 
571 
572 
573 
574 
575 
576 
577 
5/8 
579 
5«0 
581 



/PRIMARY CONTROL ANO TRANSFER 



0610 
0611 
0612 
0613 
0614 
0615 
0616 
^617 
W620 
0621 
0622 
0623 
0624 
0625 
0626 
0627 
0630 
*>631 
0632 
0633 
0634 
0635 
0636 
0637 
0640 



4515 
4516 
4526 
1146 
3145 
4506 
4511 
P057 
5502 
4511 
1140 
5215 
1142 
4503 
4506 
4511 
2002 
7410. 
5226 
4521 
1413 
4510 
0755 
0206 
4526 



0620 



eg TO, 



PROCESS 
PrtOC, 



peii 



///// 



GLTLK 
FINULN 
FRR0R2 
TAD THISLN 
OCA PC 

;getc 

SORTC 

CfR-1 
POPJ 
SORTC 

GLIST-1 
JMP PROCESS 
TAO CHAR 
PUSHA 
GtTC 
SORTC 



/READ THE LINE NUMBER REOUESTED 
/LOCATE IT ANO RESET TEXTP 
/NOT THERE OR A TIGHT LOOP. 
/SET PC 

/TEST FOR END OF LINE 

/FIRST CHARACTFR READY = USE PROC 

/EXIT -PROCESS" 
/IGNORE SPACE ; , 



/SAVE COMMAND CHARACTER 
/GO TO TERMINATOR 



JERMS-4 



SKP 
JMP .-4 

SPNOR 

POPA 

SORTJ 



ERR0R2 



COMMENTS±PCl 



/GO DO COMMAND 
CONLST-1 
COMGO-COMLST 

/ILLEGAL COMMANO 



/ALSO IS CONTINUE 
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5«2 
5«3 
5«4 
5»5 
5«6 
5«7 
50b 

5«9 
5^0 
591 
59? 
593 
594 
595 
596 
597 
59tt 
599 
6*0 
601 
602 
603 
604 
605 
606 
607 
606 
609 
610 
611 
612 
613 
614 
615 
616 
617 
61b 
619 
620 
6?1 
622 
623 
624 
625 
626 
627 
628 
629 



/OUTPUT COMMAND TEXT 



*5641 
0642 
0643 
*-644 
0645 
fr 646 
064 7 
0650 
0651 
0652 
/<653 
^654 
655 
"5 656 
0657 
0660 
0661 
0662 
0663 
0664 
0665 
0666 
0667 
0670 
0671 
0672 
'"673 

0674 
0675 

0676 
v.67 7 

700 
0/frl 

*702 

703 
07*4 
tf705 
•-706 
70 7 
0710 

0711 
*'712 



4711 
4515 
2151 
4516 
5274 
1143 
7640 
4514 
4506 
4512 
1142 
1065 
7640 
5251 
1546 
7450 
5303 
70^1 
3154 
1141 
7700 
1554 
4524 
5276 
1554 
3143 
5244 

1146 

52t>0 

1141 
77S0 
5303 
4512 
5271 

4712 
3151 
4565 
5^5 
S216 
5241 

?«»3t> 
?443 



WHITE* 



WfEbT2» 



WALL* 



/// 

Hf« STU# 



///// 

wx, 



///// 

W£XIT» 



///// 

wrxs* 
wrx.^, 



JMS I WTXS 

GETLN 

IS? OEBGSW 

FINOLN 

JMP WTESTG 

TAD LINENO 

S2A CLA 

PRNTLN 

GETC 

PRINTC 

TAD CHAR 

TAD MCR 

Si?A CLA 

JMP .-5 

TAO I THfSiN 

SNA 

JMP WEX1T 

IAC 

RCA PTl 

TAO NAGSW 

SMA CLA 

TAD I PTl 

TSTGRP 

JMP WX 

TAD I PTl 

DCA LINENO 

JMP WR1TE+3 

TAO THISLN 
JMP WTEST2 

TAO NAGSW 
SPA SNA eLA 
JMP WEXIT 
PRINTC /PRINT 
JMP WALL 

JMS I WTXR 
OCA OEBGSW 
TSTERM 
JMP .-1 
JMP PROC 
JMP WRITF 

TXTSAV 
TXFKES 



/SAVE CHAR AND TEXT POINTERS 

/SET LINENO 

/DISABLE TRACE 

/SEARCH FOR LINE NUMBER 

/NOT THERE OR GROUP 



/PRINT LINE NUMBER AND A SPACE, 
/PRINT TEXT OF A LINE. 

/SKIP IF END OF LINE 

/TEST FOR END OF TEXT<X-MEfH 

/WRITE FINISHED 

/SAVE POINTER TO LINENO OF HEX? < X-tt£*> 



/ ( X*HEH ) 

/TRY NEXT LINENO FOR GROUP. 

/SET LINENO (X-MEH) 



/INIT GROUP PRINTOUT 

/SKIP IF ALL 
C.R, AGAIN 



/RESTORE CURRENT LINE 
/RESTORE TRACE 



/LNU OF WRITE 

/COMMA, MORE TO WRITE 
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63i 
631 
632 
633 
634 
635 
636 
637 
638 
639 
640 
641 
642 
643 
6*4 
64^> 
64 6 
6«<7 
6*« 
649 
650 
6S1 
652 
653 
6~4 
655 
656 
657 
65tt 
659 
660 
661 
662 
663 
66 4 
6*5 
666 
667 



/TEST THP NATURE OF THF NEXT ALPHANUMERIC 
/IGNORE SPACES 
/TEST THE VARIABLE TERMINATORS 



/YES - SOHTCN IS SET 



0713 00010 XltSTC, 

0714 4521 SPNOk 

0715 4511 SOHTC . 
</"716 20"5 TERMS-,1 
0717 5 713 JHP I aTESTC 

0720 ?33 3 IS/ XTESTC 

0721 4522 TESU- 
*7?.2- 5 713 JMR I XTESTC 
0723 7410 SKP 
*724 5/13 JhP I XTESTC 
*725 1142 TAD CHAR 

0726 1207 TAU fF 

0727 7640 S2A CLA 
^730 2313 IS? XTESTC 

0731 2313 IS/ XTESTC 

0732 5/13 JHP I XTFSTC 

///// 

0733 did to XSORTC, /SORT CHAR AGAINST TABLE 

0734 1733 TAP I XSORTC 
*735 3012 OCA XRT2 
0736 1412 TAO I XHT2 
'4737 7510 SPA 
^740 5352 JhP SEXC 
<<741 7^41 CIA 
*742 11«2 TAU CHAh 
<*743 7640 s*A CLA 

0744 5336 JhP .-6 

0745 1733 TAO I XSORTC 
*746 7040 CKA 
*747 1012 TAO XRT2 

0750 3127 OCA SORTCN 

0751 7410 S*P 
^•752 2333 SEXC* IS/ XSORTC 
*753 2333 ISi XSORTC 

0754 73^0 CLA CLL 

0755 5733 JHP I XSORTC 



M TESTC W 



/. (PART OF NUMBER) 

/OTHER 

/NUMBER 

/TEST FOR M F M 



/NO 
/RETURN'S: 

/ terminator; number; function; other 



"SORTC" 

/1ST APG IS LIST-1 

/LIST IS ENDED BY A NEGATIVE NUMBER 
/2AND EXIT = NOT IN LIST 



/COMPARE 

/COMPUTE INCREMENT : - N 

/1ST EXIT ± YES 
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666 






/UOM v A\'U Ufc 


6*9 


*7*6 


tf3?3 


CJlLSr* 323 


6 7*1 


v'7^7 


fc3t' : 6 


3W6 


671 


* 764 


P 3 1 1 


311 


67? 


'.'7fii 


fc3i-4 


3 Vi 4 


6 73 


• 76^ 


frM, 7 


3v7 


674 


<763 


t3"3 


3H3 


6 7«> 


■/■7c 4 


i-vi'il 


3v;l 


t76 


■'• y M> 


>^24 


524 


h n 


''■76 6 


f 1 4 


314 


*7tt 


t*767 


( .V'S 


3«^ 


6/9 


Ml* 


",M2 7 


327 


6*tf 


"771 


*'• 3 1 t> 


315 


601 


"772 


(< ^21 


325 


6<*2 


<-7 73 


< « v > 2 


322 


6*3 


*774 


t 3 1 7 


317 


f> 04 


'lib 


i-ol w 


31«/' 



Ufc CODING LIST 



/SET 

/KOH 

/IF 

/lH) 

/COTO 

/COMMENT 0* CONTINUE 

/ASK 

/TYPE 

/LTHPAKY 

/E*ASL 

/wRITt 

/ MODIFY 

/uUIT 

/KETUHN 

/UPTION 

/HELLO 
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605 /(JONniTlONAL TRANSFER PROCESS 

6rto / IF U.XP) A,b»C 

ft«7 >'776 4511 I* . SOHTC 

tot nil 1*322 PLPR-l 

( rt9 1 vM'io 741 (4 SKP 

t-.sM i^u 1 4 526 tKI-lH- 

(Ol 1 ..n 2 45i 1 PUSHJ 

692 1 . H»'3 16«- tf EVAt -1 

693 10i'-4 45<"6 GtTC 
6-M U)i:5 1^45 TAD F'LACl 
696 U1i*6 7 711? SPA OLA 
**6 10? 7. 5622 JMP I PGOTO 
i.W/ 1010 4565 TSTtRM 
t.*>\ -uii 521 JhP .-1 
t '-) 1412 c >7^vi JMP ! PRCP 
7 k » 1013 1M5 TAO FLAC1 
7 1 1014 7650 SNA CLA 
7 2 1lU5 5622 JHP I PGOTO 
7 3 1H1G 4565 TSUPM - 
7-4 1017 5216 JhP .-1 
7 *> 1H?0 5703. JHP I PRCP 
7.i6 1021 6622 JHP I PGOTO 
7>7 1*22 0610 PGOTO, GOTO 
?-'rt 1H23 0250 PLPh* 250 



/LOOK FOR L-PAP 



/NO ( AFTER IF 
/EVALUATE EXPRESSION 

/PASS ) 

/TEST FUR -,0.* 

/NEGATIVE, USE 1ST REE 
/0 OR POS, GET TO NEXT 

/; OR CR, CONTINUE SAhE LINE 
/COMMA, SEE IE OR POS 

/2ERO, USE 2ND REF 
/POSITIVE, GET TO NEXT 

/; OR CR 

/COMMA, USE 3RD HZF 



FO':aL> 5/65 «««•«••«* PAL1<? V141 



6-JUL-70 



li:38 PAGE 19 



/ASSIGNMENT AND LOOP CONTROL 
SLTs 



7*>9 

710 1024 

711 1024 45)01 FgR, PU5HJ 
71? 1025 1404 GETAKG 

713 10?6 4321 SPNOR 

714 102 7 4511 SOKTC 

715 1030 ?tf24 TtR*S+l7-l 

716 1431 741*3 SKP 

717 1 ^32 4526 ERROR 
71H 1033 1154 TAO Pfl 
71V 1 1^34 3332 TCA PI? 

720 t*133 45^1 PUSHJ 

721 1036 1600 fcVAL-i 

722 1/37 44*7 FENT 

/<!6 1.04V) 6732 fPf I PT? 

724 1041 P0t'0 FLXT 

72* 1542 4565 TSTERK 

726 1343 4526 ERROR 

727 1044 57*3 JHP f PRTP 
72o 1.J45 1332 TAO PI 2 
72V 1346 45*3 PUSHA 

7^0 1047 4501 PUSHJ 

731 1050 16*1 EVAL 

7S2 1051 4565 TSTERM 

7 S3 1^52 4526 ERROR 

734 10^3 5317 ' JMP ONEINC 

735 1054 45M PUSHF 
7S6 1055 2*534 FLARG 
7,>7 1056 45*1 PUSHJ 
73b 1057 16*1 EVAL 
7.5V 1060 45M SPINAL, PUSHF 

740 1061 ?«34 FLARG 

741 1462 4724 JMS i FTXS 
7^2 1063 4430 FLOAT 

t*6 1064 4407 Fc'OnT, FENT 

744 106i 1732 FAD I PT? 

745 1066 6732 FPT I PT? 

746 1067 2560 FSB I FLARGP 

747 1070 0000 FEXT 

748 1071 1013 TAP PDLXR 

749 1072 1322 TAD PINC 
7-yA 1073 3332 OCA PT2 
/^l 1074 1732 TAO I PT? 
7 >2 1075 7710 SPA CLA 
7\>3 1076 4450 NLGATt 
7 l >4 1077 1045 TAD FLAU1 
7'-»5 1100 77«0 SMA S*A TLA 
7 >6 1101 5326 JMP FENu 



/GET POINTER TO VAR. 

/SEARCH FOR = 

/LEFT OF * |N ERROR: »K)P" OR "SET" 
/SAVE VARIABLE POINTER 

/EVALUATE INITIAL EXPRESSION 

/SAVE INITIAL VALUE 

/CHECK TERMINATOR 

/PROPABLY tXCESS R-PAR 

/J OR €ni THIS IS A SET? CONTINUE 

/COMMA, SAVE LOOP VaR POINTER 

/EVALUATE SECOND EXPRESSION 

/CHECK TERMINATOR 
/EXCESS R-PAR OR 6AQ TERMINATOR 
/; OR CR, THAT'S ALL <INC«1> 
/COMMA, SAVE INCREMENT 

/EVALUATE FJNAL EXPRESSION 

/SAVE FINAL VALUE 

/SAVE CHAR AND TEXT POINTERS 
/FLOAT A 2EH0 TO STaRT 
/COMPARE LOOP VAR TO FINAL 
/LOOP VAR 

/FINAL 

/CHECK SIGN OF INCREMENT 



/bACKWARO COUNTING 

/LIMIT HEACHEO OR EXCEEOED 



/«*««•« FOCAL » 5/69 »••••«**» PALI -i V 1 41 f -JUL -70 11:38 PAGE 20 

7^rt 11^2 45*1 PUShJ /NOT YET. DO OPJFCT STATEMENTS 

7-W 11«3 0016 PkCP. HkijP 

7'*tf 1 1 v. 4 AlAb Jms .1 F1>W- /KFSET TO PEGH'NING OF O'-J. STMT. 

7-1 *l'/5 4t>r»5 PuPF /NFSTUf?E LIMIT 

7 <2 « lv b ?*,<«♦ H 4*6 

7-5 1.1-/7 43-. 5 Pl.->'K /HLSTOPt INC 

7>>4 1 110 P*44 HAf 

7^-5 1111 1414 PPPA /HFSTOPL LOOP VAP POlM*E»> 

7'-0 1112 3332 DC A FV2 

7^7 1113 1324 F At; *i3 /PUSH DOWN ALL OF ApOVF. 

7-.-»d 1114 1013 TA*. POLXP 

7f>9 1115 3013 OCA PULX* 

7 7* 1116 52M JNP FCOJT 

771 ///// 

7 72 1117 45v>4 -UF1ML, MUSNK /NO INCKEMENT GIVEN, SET TO 1 

7 73 1120 1573 FLfPNE 

774 1121 526tf JMP SF IriAL 

775> ///// 

776 1122 0011 PiNC. 11 

777 1123 7765 " 1 * . -13 
77b 1124 2435 FIXS. TXTSAV 
779 1125 2443 FiXk, TXTKES 

7<">0 1126 1^5 Fl^ij, TAO F 13 /END OF LOOP 

7^1 1127 1W13 TAO PULXP /REMOVE VALUES FPOM HUSHOUHu LIST 

7<>2 1130 3013 DC PQLxP 

7o3 1131 S5W2 PUHJ 

7^4 1132 H5t-'0 PI?, 

7<55 ///// 

7*6 /aSK/IYHF SPtciAL CHARACTERS 

7«7 1133 0246 ALlbT, ?46 /A 

7«8 1134 0245 24S /% 

769 1135 0242 242 /•• 

79d 1136 0241 241 /! 

791 1137 0243 243 /# 

792 1140 0244 '244 /i 

793 1141 0240* GLlST. ?4v /SPACE 

794 1142 0254 TLlbT, ?54 /, 

795 1143 0273 273 /; 

796 1144 0215 215 /C.H. 



/••*»*• FOCAL, 5/&S> ***•***«« 



PALI'.- 



^141 



*-JUL-7k) 



11536' 



n ^t 21 



J^7 






/M 1 > 


Ah-u IM'KivSJFY Iht 


7"V« 


1 145 


4452 


>JY^» 


f- 1> 


7*9 


1146 


6*63 




61'; b 3 /'JYL 


h -■ vi 


1147 


72**5 




TLA • 


x.-l 


1l5tf 


1361 




T A»« >./• 


*■ 2 


JIM 


f/53 




6fc ,K 3 /DXL U I A 


« ;, 3 


1 152 


741** 




SkP 


h>4 






/ 




b 5 






/2>M X 




6 ■••6 


1 1.5,5 


4 4 5 2 


V J > b » 


Fix 


*--•/ 


1154 


3361 




l'C« x/» /(DXL) 


P. 3 


1155 


^5>-w 




t-tlii ••' -v 


h - • 9 






/ 




M il 






/ f ^f 1 


n l i\*ui*l^ pa^t 


Ml 


1156 


<4 52 


XI f , 


Fl> 


M.2 


1157 


72PnJ 




f'L/ 1 


H3 


1l6i* 


551'. ic> 




H'lUr-.V 


ol 4 


11.61 


t- / "'■ (6 


> J * 




M-* 






///// 




M6 


1162 


1252 


TL ?oT0>, 


1 A A <i / " 


M7 


1163 


1210 




T A St\ /'J.K. - 


bid 






/Jm-iNaN 


!U Pi* 1 ' TtKS 


619 


1164 


102 4 


IM-LIi, 


^t 1 


t/k) 


1165 


1 k- ? 4 




F U ►■ 


621 


1166 


f'7 76 




IF 


b^2 


1167 


1-' 416 




f U 


h>3 


117KJ 


Pftlrf 




(.010 


*24 


1171 


(*62k5 




r u. ■■>••(- i\i^ 


^25 


1172 


12^6 




&Sn 


ft2ft 


11/3 


12*' 7 




TYPt 


«27 


1174 


2755 




I.HKAKY 


bVH 


1175 


2226 




1- NASI- 


6?9 


1176 


t'641 




trhl T* 


b.^1 


1177 


12 73 




f-il'lF Y 


*M 


12H» 


t' 17 7 




SUNT 


632 


12'/'1 


1554 




Pfc.TK*. 


6 33 


1202 


6446" 




ftp r i on 


634 


12^3 


3274 




HtLLf 


635 






///// 




636 


12M 


3040 


PACLS2. 


FCUtS 


637 


12^5 


3H65 




Ktlhl 



/«««**» fJCAL, 5/69 »***«**** PALlli V141 6-JUL-7tf 11138 p AGt 2? 

tod /HPl'f-UHTPUT STATEMENTS 

n.iV 

fc«w 12^6 7240 AdK, CL* CMA /KtMEMRER WHICH CALL. 

h«l 12^-7 3131 TYPE, OCA ATSrt 

h4^ 1210 3151 TASf\, OCA f>EHGS* /RE-ENABLE THE TRACE 

hm3 1211 4510 SUPTJ /SPECIAL CHARACTER? 

**4 1212 1132 ALlST-1 

h<\b 1213 (M26 ATL1ST-ALIST 

h4o 1214 2131 IS/ AlSw /1EST QUOTE SWITCH 

*47 1 21*> 5227 JM- TYPE? 

*4« 1.^16 45H1 PUSHJ /on ask; SETUP PTl 

o'<9 1217 14tf4 CETARG 

*<*>* 1220 4636 Jf*S I TTXTS /PROTECT TEXT 

*>>l 1221 1233 lAf.i COL /TYPE COLON 

**>? 1222 4*312 TaSM'L, PhlNFC /(CLA> TO SUPPRESS « : H 

►**>3 1223 4626 JhS J InTERP /CALL INPUT CONVERSION ROUTINE 

fc fc >4 1224 4o37 jf*S I TTXIR /RESTORE TEXT 

h^5 1225 52/6 JH ASK /CONTINUE PROCESSING 

<«56 1226 33<'6 I:\Tt-PP. INTASK 

h->7 //// 

fr^rt 1227 45V-1 TYPt?. PUSHJ /UO TYPE 

<^9 1230 161*1 FVAL 

n^w 1231 45t^5 TSTEKM 

m-1 1232 4526 EKROk /BAD TERMINATOR IN "TYPE" 

m->2 1233 0272 CUl , 272 

h'.3 1234 4640 JhS 1 OUTS /PRINT 

h*4 1235 52*7 JHP TY^t. 

>-'<b ///// 

of 6 J2^6 2435 TtXIS, TXTSAV 

"t 7 1227 L<r<r3 TtXTP. TXTKt S 

^b i?*tf 33^5 t^lb» (juIPT 



•»*»*»» F C A L. » t> / 6 V ««*«»»«-»# R A I 1 1* 



V141 



6-JUL-7tf 



1i:3« RAGE 23 



h/1 
^/2 
*/3 
«/4 
*/!? 
r. /6 
*-/7 
h /rt 
r. /V 

h-5 



bo 6 

b~7 
b-^ 

r.wi 
r, •>> 
n v .3 
r V 4 

Hify 

cW 

.* V* 

vi 1 
V, ^ 

V'- 4 



1241 
1242 
1243 
1244 
1245 
1 246 
1 '£* 7 

12b0 
12M 

12-' 2 
12^3 

1254 
125 6 
3 2*>6 
12^7 



126<5 
12M 
1262 
1263 
1264 
3265 
1266 
126 7 
12/hJ 
1271 
1272 



2151 

4 5 f 6 
451tf 
1 4 v 4 
7555 
4t?l2 
•^242 

4512 
4t>> 6 

^214 

j * t i) 
4D3/ 
j W15 
*251 



4 5«r»6 
40/2 
1 1*4 

4522 
4 5 vi 6 
4672 
1164 
Jl/>3 
fi21w 

6 Wild 



FuUuT. IS/' htHb?W 
GtTC 
SUPTJ 

TLIST2-1 
TLIST4-TI 1ST? 
PR! NIC 
JMF TuUOT+1 



/DISAHLL TRACE 
/TYPF LITERALS 



////// 

7Cl«LF » 



TAIj CCK 
PRlNTC 

T A S rv 4 , r fc T C 

J«H TASK 

//// 

Ti>LF 2. TAh (TCP 

JMS I OuTUEV 
TAl C2KM 
JMP TUhLF^l 



/SI ASh=CN.LF. 

/MOVir TU NEXT CHARACTER 

/SPLAT=CN 
/UtLAY FOR C.ft, 



/IF nLPGSw=0 : fc>ARLF. FLIP«-FLUP "UMPSW" 

/ *w: lUSAPLE ANI.) PETUbN ALL"?- * S. 

/IF FihPSW r p: TPACL UN, IF ENA8LED 

/ *fc : THACF OFF 

/IF MJn = i6 : HP1NT TRACE. 



T i Ml J- ■ , 



! MTb, 



ffcTC 

JMS ! I*TG 

TAU litCNUM 

OLA TOTUIG 

TEST^ 

OtTC 

JMS 1 INTO 

TAl' PECnNM 

PCA PLCP 

JMP TASK 

HLCIKI 



/PASS PERCENT SIGN 

/RFAfi FORMAT CONTROL: "%7,3" 

/I*TFGFR PART (TOTAL DIGITS) 

/GFT PAST . fF ANY 

/RIGHT-HAND PART (OECIMAL PLACES) 



FOCAL* 3/t>9 «•••»««»» 



PAL 1^ 



V141 



*-JUL-70 



ll:3tt 



PAGt 24 



9*6 
9v>7 
9tfrt 

9/, 9 

910 
911 
9 IX 
93 3 
914 
^15 
916 
917 
913 
919 
9X4 
921 
9x2 
92 3 
9X4 
925 
926 
9X7 
9Xd 
9X9 
93d 
931 
93X 
933 
9,34 
9.3 5 
936 
937 
93H 
939 
940 



/bFA^CH PuUTI«Mb"S 



1273 
1?74 
1?75 
1276 
127 7 
13*4 
13^1 
13k 2 
13*3 
13?4 
1305 
13^6 
13'/ 7 
1310 
1311 
1 512 
1313 
1314 
1315 
1516 
1317 
13? -a 

1321 
1322 
1323 
1324 
1325 
1326 
132 7 
1330 
1331 
1332 



4315 
*:>16 
45?6 
1134 
301 » 
313o 
1143 
7450 
<>275 
3 4 1 
1010 
3153 
4340 
3061 
2151 
4506 

4*312 
4310 

003 7 
1322 

4 5%^ 7 
5312 

1134 
70wl 
3^10 
3136 
4313 
4310 
0053 
1322 
4507 
5325 



Munir y i 



S-JUnI , 



///// 

$JAr(, 



sfouvu, 



GETLK; 

FI:vU.|. 
»: P»- Oh 
lA' 

nc* 

ML A 

r a • j 

S iv A 
JMP 

oca 

TAfi 

ncA 

jnS 
MCA 
lb/ 

otic 

PR Wj] 
SORTJ 



2 

jFrt 
XI M 
CT1 

lNt 

uoi 

AX 
X In 
AC* 

IfM 

isr 



FY+2 

IK' 

FT 
PEV 
3 + 1 



/REAO l I ML NO. 

/LOOK IT UP NOW. 

/NOT T»-.£9E * BAD COpMAMj UNLESS /LRU. 

/SFT PCImTFRS 

/FOR INPUT 

/COPY THF SAME LInF fc'UWyFK. 

/CHECK FOH ALL 

/ERROR In ARG 

•(X-VEK) 

/SAVF START OF NEW LlNf 

/KFA!' THF TELETYPE INPUT SILENTlY, 
/SAVF SEARCH CHARACTER 
/NO *KF. AK5, 
/TYPF+TtST-F.F . 



PACKC 



/LOOK FUR MATCH 
EIST3-1 
I ISTG0-LIST3 

/SAVF NEW LINE. 



;ha^ 



/RESTAwT-B. A. 
/SFT POINTERS 



S^nr, 



TAO HuFK 

I AC 

OCA A<I.vj 

OCA XL TIN 

REAOC /REAP FkOM KEYBOARD. 

SORT J /TEST 

LIST6-1 

SRNLST-L1ST6 
PACKC /PACK CHAR, 

JMP SEOUNiJ /MORE 



/•«««*« F(JCAL» "J/bV ««»:•«{«{ 



HAL1P 



V141 



*-J'Jl.-7tf 



tl:.5« 



T'AGt. 25 



941 






94? 


1534 


ptfMtf 


944 


i.v3 4 


74525 


944 


15 35 


1142 


V4S 


1 33o 


7w4 1 


V^o 


1o«3 7 


315/ 


M47 


1 Mtf 


1 /45 


V4H 


1341 


?6.*>6 


y«4 -> 


1 />42 


3*12 


g^ .) 


1 5-44 


1412 


9^1 


134 4 


75lw 


9^2 


1?4* 


535 7 


9S.5 


1346 


1157 


9^4 


1347 


7640 


9^!? 


13S*4 


5^44 


95* 


1451 


1^12 


9 5 7 


135* 


175 4 


95* 


1353 


3333 


959 


13*4 


1734 


9 * ■." 


1355 


3333 


9^1 


13u>6 


7410 


9<>2 


1357 


?534 


9*4 


136* 


73**0 


9o4 


1361 


5753 



SJ^ l f ', 



St* , 



ni;A irtTp 

f«i i *wT2 
SH<\ 

Jhr' SE X 

TAi- T2 

?*A CLA 

Jf-.P .-5 

T A I • X K T 2 

1A«: ! SiJ&lrt 

pca su^n-- 

r?CA SOtfT* 

IS/ SUHTP 

'"LA CLL 

Jf*P ] SO&T* 



« /SUrtT AnD H^AiMCH HOUTI^L. - "SHKTJ" 

T a i i .CXA^ /ASSI'M* CHAR If AC = ^ 

riA 

• k:a i'2 /SAvL Mm I TtJ" 

TAi- » Si^-'IR /MKSr A^G |S LIST i.FSs ONM 

/2A*mO IS IMTWA-LIST Lt'M,TH 



/••LISTS LhULU HY MLGA 7 i*'t >iU*lHt*S«« 

/KKAi' TXIT 

/I- INI- MJHKFSS 



/'•UTf.H hOUNJU. 
/SETUP KFTUHM 

/NAl'CH NOT FOUND. 

/hFTHK?" TU CALLING StlJ»^:vCF. 



/#*««*♦ FOCAL, 5/69 »•»•**«** PAI-1" V141 6-JUL-70 11138 p AGE 26 

960 1362 45^1 TAN, PUSH J /TABULATE TO A PARTICULAR COLUMN 
Vh7 1363 16ntf FVAL-1 

9oo 1364 4452 FIX /GET COLUMN NUMBER 

96 y 1365 7141 CLL CIA 

V/v; 136o 7ti*U I AT 

V/l 13*7 1^53 TAf) TAHCTH 

97;> 137^3 763*3 S*L (LA 

973 1371 •=>21ia JMH TASK /ALREADY THERE OR PAST IT 

97« 1^72 1*933 TAH C24« 

97t> 1373 4512 PKINTC 

9/6 1374 1^46 TAP FLAG? /TEST AGAIN 

977 1375 5365 JMP TAH*3 

W^ 1376 SKNLSTr. /•MOniFY' CONTROL CHARACTER TABLE 

9/y 1376 13?1 ^HAN /b.A. = RESTART 

Vo/1 1377 1312 SCHAM /V ,F . = CONTINUE 

961 14*tf 13^7 SCONT /bELL * CHANGE SEARCH CHARACTER 
9n? 14 U 131*J SCONT + 1 /L.F, s FINISH THE LINfr AS BFfORF, 
963 ///// 

9«4 14^2 P263 LIST(,U» INPUTX-11 /C.R. - FNO THF MOOlFIlO LINE HLRE 

9*5 14">3 1331 SG"T /FOONO SEARCH CHARACTER 



/»**>** FOCAi , b/69 «*««*«*** PALlP V141 6-JOL-7& 11138 PAGE 27 



/F IHST LLTTER OF ARC 

/" 

/C.R. - FUNCTION OR NUMBER IS NOT AM A*G. 

/BAD APGUEMhNT IN 'FOR*, 'SET*, OK 'AS** 

/"GETARG" CAN CREATf MEW VAH. 

/"CETVAh" WILL NOT 

/HACK INTO AOD. 

/SFCOND LETTER 
/TERMINATOR? 

/YES 

/NO 

/SAVE ?AND LETTER OK NAMF. 



/IGNORE THE REST 



/LOOK FOR SUBSCRIPT VIA SORTCN 
/NOT SUBSCRIPTED BY L-PAR* 
/SAVE LAST OPERATION 

/MOVE PAST L-PAR AND 
/EVALUATE THE SUBSCRIPT. 
/MOVE PAST R-PAR 

/RECALL LAST OPERATION 

/SAVE SUBSCRIPT 

/RESTORE NAME 
/SEARCH FOR VARIABLE 



9 "J- 






/r luit UK t*' 


U * A VARIAP 


9i7 










yon 


14 tM 


4b2b 


GtTA^G, Tec- 


re 


V n V 


14vb 


0242 


TLl.,72. ^242 


vv.1 


1 4 -.4 6 


«21b 


*21b 


W=«] 


14'- 7 


4b26 


FNKUP4 


v->2 


14 10 


7240 


CLA 


cm 


9y,5 


1411 


*$!•■; 3 


GtTVAh, PUSH* 


W4 


141*? 


3136 


OCA 


XCT1N 


Q9*> 


1413 


4 30 7 


^ACrU' 


99^ 


1414 


4b**6 


gl ic 


9^7 


14 lb 


4t>ll 


SUHl 


re 


9^ 


1 41 6 


20 9 




TtRMS-l 


99 V 


1417 


5222 


JMH 


.♦3 


1 If! /: « 


14?*) 


1142 


TAG 


THAK 


IV'.v'l 


14 21 


0071 


AtMh 


P77 


1 irl /' / 


14 22 


1135) 


TAO 


AGO 


10V3 


14^3 


4 ? l. 3 


PuSHA 


1 H /'■ 4 


14','4 


4911 


SUNTC 


1 H V -> 


14?b 


?00b 




TERMS-1 


llrlt-6 


1426 


5231 


JhP 


.♦■5 


l0/>7 


1427 


4b^6 


GtlC 


Itffrt 


1 4 :< 


5224 


JhP 


.-4 


\V-> 


1 4.51 


4 5? 3 


TbfLPK 


1 I* 1. /' 


14,52 


5243 


JHP 


GS1 


ll'l 1 


14?3 


1130 


TAt 


LASTOP 


1 '/> 1 2 


1 4 .5 4 


4b/'3 


HUSHA 


\v\ <, 


1 4.<t> 


4 b/- 1 


PUSH J 


1 1« 1 ■•■» 


143 6 


16'/<0 




FVAL-1 


1 H 1 -5 


14o7 


4b>6 


• tic 


Into 


1 4«0 


1413 


PUFa 


1/1.7 


1441 


313d 


nuA 


LASTOP 


1 w 1 rt 


14«2 


4452 


FIX 




1 w 1 ^ 


1 4 " 3 


3324 


G^J , oca 


SUWS 


IfV/i 


1 4' 4 


1413 


PUPA 


1/21 


14*b 


313b 


.OCA 


AGO 


lv"22 


144 6 


1134 


TAG 


STARTV 


1023 


14 "7 


31^4 


G^>3, OLA 


FTl 


1024 


145)0 


llb4 


TAU 


PT1 


10?9 


1451 


Skill 


OCA 


XRT 


1026 


1432 


llb4 


TAG 


PT1 


1027 


1453 


7041 


PIA 




ln^i 


1454 


ll^b 


TAO 


LAS1 V 


10 29 


1 4bo 


7750 


SPA 


S.m A OLA 


1/3U 


1456 


5267 


JMP 


GS2 


1031 


1457 


1b54 


TAJi 


I PI 1 


1 K=. ^ X 


1 46W 


7041 


CIA 




103 3 


14M 


113b 


TA>> 


AUG 


U 3 4 


1 46 2 


7t>50 


SNA 


CLA 


1 v. a -> 


1465 


5312 


J {•!»-' 


GFNU1 



/TFST FOR END OF LIST 

/ENO St ARCH 
/U_T TABLE ENTRY 



/EOUN'J X> 



/«««««• FOCAL, 5/69 »«ti»«»te PAt.l^ V141 6-JUL-7U 11:36 ^AGt 2*< 

/TPY Ht XI ONE 

/VAw. M>7 FOUNO, CAM I M-VKE Oivit y 
/UNUfMNFO VAN, USFU I »\< FAP^FSSltl 
/Of, ADD THt VAKIAHLF 
/TEST STORAGE I IMITs 

/UPDATE THE LIST. 

/SAVE *A*t 

/SAVE SUBSCRIPT 

/INIT I ALI^f VAP. TO 2fn» 

/EXIT 

/EnuoU NA*F. TF$T SoBSCkTPT 

/wPUNG SUdSCWIPT 
/SFf POINTER TO OATa 



1036 












1*1.57 


1464 


1154 


GS4, 


TAN 


PT1 


103« 


1463 


1144 




TAh 


GiNC 


1039 


1466 


5247 




JtfH 


GS3 


104* 


146 7 


2413 


Gb?, 


IS/* 


I POL XP 


104.1 


1470 


4526 




FHHiW 


1042 


1471 


1153 




TAO 


LAST y 


1043 


1472 


1005 




TAP 


F13 


1044 


1473 


7141 




riA 


OIL 


1045 


1474 


1013 




TA 1 


PUL Xf< 


1046 


1473 


762C 




SNL 


CLA 


1047 


1476 


4326 




EKKUF-3 


104d 


1477 


1155 




TAO 


t.ASTV 


1049 


1504 


1144 




TAO 


GINC 


1050 


1501 


3155 




OCA 


LAbTV 


1031 


1502 


1135 




TAu 


AUO 


10^2 


1503 


3554 




MCA 


I PTl 


1033 


1504 


1324 




TAO 


SUt!S 


1034 


1505 


3411 




OCA 


I XPT 


1033 


15*6 


3411 




OCA 


I XkT 


1036 


150 7 


3411 




OCA 


I XkT 


1037 


1510 


3411 




OCA 


I XWT 


1038 


1511 


5320 




JHP 


CSh 


1039 






///// 






1060 


1512 


1411 


GMUl. 


TAO 


I XkT 


1061 


1513 


7041 




CIA 




1062 


1514 


1324 




TAO 


Subb 


1063 


1313 


7640 




S*A 


CLA 


1064 


1516 


5264 




JMP 


GS4 


1063 


1517 


2013 




\S? 


PULX^' 


1066 


1520 


2154 


r.bSrf 


IS/ 


Pll 


1067 


1521 


2134 




IS/ 


PTl 


1068 


1522 


55*2 




PUPJ 


1069 






//// 






1070 


1523 


1575 


P0, 


FLT^EK 


1071 













FOCAL, "j/ov *««***»** 



HAI_1«-' 



V 1 A 1 



*-JUl -7k5 



1i:. 



•A?;f i>4 



107? 
Itf73 
1H74 
107*> 

1H 7 7 
l*7o 
1H79 
lUft^ 

1^01 

lwa3 
ltftt* 
l^Ho 
ltf*6 
ltu<7 

lWH^ 
lWBV 
10*0 

lnvi 
10*2 
lttv* 
liflVA 

l*9r> 

ltfVb 
l#9v 

ll»>/> 



15?H 
15^5 
1 5*0 

15/7 
15:^ 

1531 

153^ 



1533 
1534 

153/ 
154*j 

1541 
1542 
1543 
15<4 
1545? 
15<o 
1547 
155«; 
1551 

1552? 
1553 



15*4 

(A V) V: tf 

1142 
1 0*3 

76 4^1 

57^4 

45 vb 



* : i.-- W 

11*2 

1 to * 4 

744£ 

13->2 

75vk) 
535*) 
1353 
75ltf 
S35tf 
31V 7 
?333 
7 3*-*/ 
5 733 

7764 

^Jl^ 



S U H b = . 

fAi. f'rl.A^ 

///// 

/bKt i r 'tXl CHA'VACltK l l > A f-UN'bM 



y it st« 



/«F.'TUrt\'s: .; U1HM<; NU'-Wt - "Tt^-T'V 



<•■> 1 r * 1 1 , 
///// 

M S [ ? , 



T A M f ; rl A k 

^r A 

IS/ >TtbT.v 

TaL- »-i|ST1 

j^h h. ilxi r 

1AM MhT? 

Sf-A 

iKi 'SlWTi'-v 

IS/ Xlt^lv 

CLa cll. 

J'-'h T XTFSFX 

?1 v-?b.> 



/u»-'l A . 
/UHMhAFt 10 H 9" 

/Tn-J LAKGL 
/CDMPARt TO M M 

/TOU bf-ALL 

/Knur.Mj DIGIT, SAVL IT 
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11*2 /tXiT FKOM A M iJO" SUBROUTINE 

11*53 

11^4 

1105 1554 1323 RtlriK, TAD Ptf /(PC) => 

11/56 1555 3145 OCA PC 

11*7 1556 3414 XPOPJ. TAU I PuLXP /RFCURSIVE EXIT - "POPJ" 

Htfd 1557 315 7 OCA T2 

11*9 156*1 5557 JMP ! T2 

lllrt 
1111 

1112 /AS*-1YPF COMlKOL CHARACTER TAPLE 

1114 1561 1362 AfLlSl, TAP /A - TABULATION DELIMITER 

1114 1562 l?6tf TiNTR /% - FORMAT DELIMITER 

1115 1563 1241 TUUUT /" - LITFRAL UFLIMITER 

1116 1564 1250 TfRLF /! - CARRIAGE RETURN AND Llwf FEFQ 

1117 1565 1254 TC*LF2 /# - CARPIAGF RETURN OK'LY 

lllrf 1566 3125 TOUhP /*/- DUMP THF SYMBOL TABLE CONTENTS 

1119 1567 1252 TASK4 /SP- TFRMNATOR FOR NAMES 

112vt 1570 1252 TASK4 /, - TFRMlNATOP FOR EXPRESSIONS 

1121 1571 F615 PROCESS /I - TERMINATOR FOR COMMANDS 

1122 1572 F62tf PCI /C.R. - TERMINATOR FOR STRINGS" 

1123 ///// 

1124 1573 VvittX FLTOKt, *tf01 

1125 1574 ?v)/»0 2HW0 

1126 1575 POW0 FLTi^FK. lawn 
112 7 1576 (Mtfld afrifctf 
112« 1577 V\fi\o$ Wtffctf 



/•»»«»* FOCAL* 0/b9 *»«««**»* 
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112v 






/LVa! UA 


IE Ai\» EXp^tSblU 


1 1 .5 ^> 






/I EMANATES WITH *N P- 


1131 






/LFaVE 


IML KEiULT IN F 


1132 










1133 










1KS4 










1 1^^ 










H3o 


lb*-ti 


4 6 vb 




GfcTC 


11W 


1 f> «- 1 


31. Hi 


FVA L , 


r.CA |_ AS TCP 


1 1 S :-* 


1.6^2 


4t>2t> 




us re 


113v 


16(M 


5216 




JMP FTLRP1 


114,. 


16M 


•S332 




JhH ENUM 


1141 


1 bVb 


S6U 




JMP FFUiM 


1142 


16^6 


4b^l 




PUSHJ 


114.5 


16'/» 7 


1411 




GETVAR 


1144 


161J 


4626 


OHNtX 1 , 


1ESTC 


114-? 


1611 


*236 




JMP FTEK^M 


1146 


1612 


t'212 


FCHUL bl 


,^212 


1147 


1613 


Vit'J 




">3 7 7 


114^ 


1614 


4^26 




FKR0P4 


114V 






///// 




11:;.' 


1615 


43* 4 


E IFi<*'l » 


PUShF 


11^1 


1.616 


1676 




FLT^ER 


11^2 


1617 


46<'i6 




PQPF 


11^3 


16?d 


?tf34 




FLAkG 


11^<» 


16?1 


116K» 




TAO FLAHGP 


lib-, 


1622 


3164 




HCA P11 


lib* 


1623 


1 *1 3 4 




TAil «2 


11^7 


1624 


1127 




TAl- SuWTCn 


llbrt 


162!? 


74S/, 




SNA 


llt>v 


1626 


6241 




JMP EfERM 


116rf 


162 7 


7*^1 




I AC 


1161 


163tf 


765w 




SNA CLA 


lln^ 


1631 


632o 




JMP AKG.**T 


1163 


1632 


1127 




TAU SURTC^ 


1164 


1633 


lri7ri 




TAl' Ml 


116<? 


1634 


771tf 




SPA CL* 


116 6 


1636 


^6b6 




JHH FlPaP 


11*7 


1636 


4 623 


t t F K -' »v , 


TSTLPK 


116b 


1637 


741k) 




SKP 


116V 


164tf 


4626 




FKPUP4 


117*1 


1641 


1127 


r 1 f. r< *-< , 


TAl' S U R T f »\» 


1171 


1642 


3147 




OCA THlbOP 


11/2 


164 3 


11^7 




T Ai ; ThlbOP 


1173 


1644 


1 io 7Ji 




T A i > Mil 


11/4 


164^ 


77/4 




SKA PL A 


11/^ 


1646 


3147 




•)CA THliiOp 



/Mfiy/t PAST EXTPA CHaRACTFR 

/lvapation controller (Checkpoint ?) 
/tfst chakactep and ignore spaces 
/tfr^imation 

/NUMBER 

/FUNCTION 

/LETTER OF VARIABLE 

/FTNO HH CREATE VaR I ABLE » ALSO SET Pl*l ( 

/PT1=>AKG 

/T 

/N-EPROR IN FORMAT 

/F 

/L - MISSING OPERATOR 

/INITIALISE RESULT TO ?ERO. 



/SET PTl. 

/TFST FOR UNARY OPERATIONS 

/CREATE DUMMY FOR UNARY MiNUS 



/IGNORE UNARY PLUS 
/TEST FO^ NULL PARENS, 



/MIGHT bE AN L-PAR, 



/OPERATOR MISSING BEFORE PARFN 
/SET FROM M TFSTC H - W S0RTC M 



/ENO? 
/"THISOP" 



FOUIV. TO ENO OF EXP, 



FOCAL, 5/69 «*«•»•«*« 



PALl'1 



V141 



6-JUL-70 
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1176 
1177 
1176 
1179 
1180 
11*1 
1182 
1163 
118.4 
1185 
1186 
1187 
1168 
1169 
1190 
1191 
1192 
1193 
1194 
119b 
1196 
1197 
1196 
1199 
12M0 
12k*l 
12^2 
1203 
1204 
12^5 
1206 
12*37 
1208 
1209 
1210 
1211 
1212 
1213 
1214 
1215 
1216 
1217 
1218 
1219 
1220 
1221 
1222 
1223 
1224 
1225 
1226 
1227 
1228 
1229 



164 7 
1650 
1651 
1652 
1653 
1654 
1655 
1656 
1657 
1660 
1661 
1662 
1663 
1664 
1665 
1666 
1667 
1670 
1671 
1672 
1673 
1674 
1675 
1676 
1677 
1700 
1701 
1702 
1703 
1704 
1705 
1706 
1707 

1710 
1711 
1712 
1713 
1714 
1715 
1716 
1717 
1720 
1721 
1722 
1723 
1724 
1725 
1726 
1727 
1730 
1731 



7201 
<U47 
1147 
7041 
327 4 
7001 
0130 
1130 
1274 
7710 
5310 
1130 
1331 
3274 
1674 
3274 
1130 
7640 
45*5 
#044 
4407 
0000 
6560 
0000 
1160 
3154 
1147 
1130 
7650 
55H2 
1413 
3130 
5247 

4523 
7410 
5355 
1130 
4503 
1154 
33^0 
4 504 

0000 

1147 
3130 
4506 
4525 
5353 
5332 
5342 
5206 
2026 



E IFRH2, 



FLOPP, 



///// 

EHArt. 



AKGNXT, 



optahl, 
///// 



1AC 

THiSOP 
• T HI SOP 



LAS TOP 

LAS! OH 

FLUPF< 

CLA 

FPAH 

LASrOP 

OPTAPL 

FLOPR 

I FLOPR 

FLOPR 

LASTOP 

CLA 



CL* 

AM) 

TAP 

CIA 

DCA FLOPP 

1AC 

AND 

TAU 

TAO 

SPA 

JhP 

TAD 

TAD 

DC A 

TAi 

OCA 

TAP 

S?A 

PUPF 

FLAG 
FENT 


FPT 1 FLAHGP 
FEXT 

TAD FLAHGP 
OCA PU 
TAD THISOP 
TAD LAST OP 
SNA CLA 
POPJ 
PUPA 

DCA LASTOH 
JMP FTEKM2 

TSTLPR 

SKP 

JHP EPAR? 

TAD LASTOp 

PUSriA 

TAO PT1 

OCA . ♦? 

PUSHF 



TAD THISOP 
DCA LASTOP 
GETC 
TESTC 
JMP FLPA D 
JMP FNUM 
JMP EFU.m 
JMP OPNEXT-2 
OPTARS 



/COMPARE PRIORITIES 

/PRIORITIES ARF : ( t )•<•/),(+-)'* HU T 



/CONTINUE 

/FIND OPFRATIUN FROM lARIE 



/TEST FOR FND OF DATA INTO FLOAT Ii\iG AC. 
VGFT LAST DATA 



■/(FLOPR I PTl) + -«/t 
/SAVE RESULT 



/ = 0? 

/EXIT "EVAL" 
/GET PRIOR OP 

/COMPARE THIS OP 

/TEST FOR SUH-FXPRESSION 

/GO FVALUATE EXPRESSION 
/CONTINUE READING THE EXPRESSION 
/SAVE "LASTOP". 

/SAVF LAST ARGUMENT 

/MORE Tu COME 

/RFaO 3 ST CHAR OF AM ARG. 

/DO SPECIAL CHFCK 

/COULD HE LEFT PAHEN 

/N 

/F 

/L 
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1230 

1231 1732 45^4 EmOh, POsHF /TO PROCESS A MUMrtfc R » S* v^ AC 

1232 1733 0044 FLAC 

1233 1734 1100 TAi« .FLA,<r;p /SF T HfllNTFK AS FOP A Va^IahLL. 

1234 1733 3154 MCA Hit 

1235 1736 4 4 73 Jf-'S I F{m j ijt /KEAn Tl* T NUm^E* => ( K- T 1 > 

1236 1737 4505 PuPE /RESTORE 1HL AC 

1237 174*1 *0«4 FLAC 

1238 1741 S21W JMR OH^tW /COiUlPUF 

1239 ///// 

1240 1742 32 74 EHIn. l.JCA FLOPP /SFT CuuF 

1241 174.5 4«5^o C^tTC /REA0 FUNCTION NAME. (1,2,0^ 3 LbTTErtS) 

1242 1744 4311 SOf-TC /LOO* FOP TERMINATION CHARACTER. 

1243 1745 ?t)Ot> TtRMS-1 

1244 1746 3364 J>P FFlU? /YFS 
1243 1747 1274 Tah FLOPP /NO 

1246 1750 71W4 CLL PAL /MISh-vaSN HA5H COOt 

1247 1731 1142 TA«J HMAH 
1246 1732 S342 JMP FFOn 

1249 1733 4323 ELPAP, TS1LPR 

1250 1734 4326 ERP0R4 /UOU^LF. OPERATORS 

1231 1735 1127 ERA*9, TaO SUKTCN /LFFT PARENS EOUNJ. 

1232 1756 45i"3 PUSHA 

1233 1757 113*1 Tau LASFPP /SAVE DATA 

1234 1760 45v3 PuSHA 

1255 1761 43/il PUSHJ /EVALUATE THE EXPRESSION 

1236 1762 16*0 FVAL-1 

1257 1763 55//B J*P I EEU;<3I 

1238 /// 

1239 1764 1127 EHlN?» TAD SORTCd /SAVE ' S0RTCN ' , ' LaSTOP • , ^\iU EUiviC COJE 

1260 1765 45k"3 PUSHA 

1261 1766 113*3 TAO LASTOP 

1262 1767 4503 PUSha 

1263 1770 1274 TAO FLOPP /SAVE FUNCTION COOE. 

1264 1771 4503 PUSHA 

1265 1772 4523 TSTLPk 

1266 1773 4526' ER*UR4 /MUST HE FOLLOWED RY PARTES TO SF I AKGL'rtE. il 

1267 1774 4501 PUSHJ /YES 

1268 1775 1600 FVAL-1 

1269 1776 1413 PUPA /BRANCH ON FUNCTION COOE : RE TURN VIA EEl'I^I. 

1270 1777 4510 SORTJ 

1271 2000 2207 F^TARL-1 

1272 20*U 6361 rNTARE-FNlAdL 

1273 2002 4526 ERkOR? /ILLEGAL FUNCTION Ma.ME. 

1274 ///// 
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1275 

1276 2003 0241 241 /! 

1277 2004 0242 242 /" 

1276 2005 0256 236 /. -FOR INPUT NUMBERS 

1279 2*06 TERMS*. /TFRMIMATO& TARLF FOR «£VAl • AND •GETVAN* 

1260 2vi0o 024*3 24* /SPACE 

1261 20t</ 0253 253 " /♦ 1 
12«2 201*4 0255 ?33 /- 2 
1263 2411 0257 257 // 3 
1204 2012 0252 232 /• 4 
126b 2013 0336 336 /UP ARR 5 

1266 2414 0250 250 /( 6 L-PARS 

126/ 21413 0333 333 /C 7 

126ri 2016 0274 274 /< 10 

1269 2017 0251 231 /) 11 R-PARS 

1290 2024 0335 333 /} 12 

1291 2021 0276 276 /> 13 
12V2 2022 0234 234 /, 14 
1293 2023 0273 273 /; 15 
12^4 2024 0215 213 /C.R. 16 

12*5 2025 0275 275 /* TO END GETAPG FROM 'SET* 

1296 2026 5554 OPTA^b, FGT I PT1 

1297 202/ 1554 FAO I PT] 
129n 2030 2334 FSb I PTl 
1299 2031 4554 fUV I PTl 
13*0 2032 3554 FMY I PTl 
13*1 2033 0554 FPW I PTl 
13w2 ///// 

13H3 2034 0000 FLAHG. /UATA TEMPORARY STORAGF 

1304 2035 0000. 

1305 2036 00/0 

1306 ///// 

1307 /FOCAL IFXT FOR M HELLU W COMMAND 
1306 2037 7056 HPT, 7056 /LT XJ 8.4; 

1309 2040 6473 6473 

1310 2041 1740 1740 /OPTION K,T#l»F,:»S; 

1311 2042 1354 1354 

1312 2043 2454 2454 

1313 2044 1134 1154 

1314 2045 0354 0554 

1315 2046 7254 7254 

1316 2047 2^75 2373 

1317 2054 0>>4H v*540 /ERASE Ai.L 
131a 2051 0177 t*i77 

1319 2052 1500 1500 

1320 ///// 

1321 /A-sbOLuTE VALUE FUNCTION 

1322 2053 1*)45 XAHS, TAD FLAC'l 

1323 2054 7710 SPA CLA 

1324 2055 4450 NEGATt 
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/CONTINUATION OF FUNCTION CALLS, 
EHJr*3» F'OPA /RESTORE LAST OPERATION 

/NORMALIZE FUNCTION RETURN 

/SET POINTFR 

/GFT LAST PARE* COOL. 
/CHECK FOK PARFN *ATCH, 

/(STILL SET FROH THE LAST M EVAL") 
/SKIP IF MATCH 
/PARFN ERROR 

/MOVF PAST R-PAR. AND RETURN TO OPNEX. 
/FUNCTION RETURN IS OK 
OPNEXT 
//// 

LPRTS.I. /SKIP IF LEFT PAREN. - •TSTLPR' 



1325 






132ft 






1327 


2056 


1413 


1326 


2057 


3130 


1329 


2060 


4407 


133n 


2tfM 


l\o\ /) 


1331 


2VJ62 


6234 


1332 


2063 


01 yr, i" ,/J 


1333 


2 064 


1160 


1334 


2065 


3154 


1335 


2066 


1413 


133ft 


2067 


70«1 


133/ 


2070 


1066 


1336 


2071 


112/ 


133 V 


2072 


764W 


13<M 


• 073 


4526 


1341 


2074 


4 5^6 


1342 


2075 


*676 


1343 


207ft 


1610 


1344 






1345 






1346 


2077 


£.0/0 


134 7 


2100 


1127 


134rt 


2101 


1 to70 


134V 


2lt>2 


7 700 


135* 


2103 


56// 


1351 


21*4 


1127 


135 2 


21*5 


1067 


135.5 


21^6 


7740 


1354 


21V7 


2277 


1355 


2110 


5677 


13^6 







OCA 


LAS TOP 


FEMT 


TKR 




FPT 


FLAKC 


FEXT 


TAD 


FLAWCP 


DC A 


PU 


POP* 


CIA 




TAO 


P6 


Tad 


SURTCN 


Sj^A 


CLA 


ERHUP4 


CkTC 


JtfP 


I .+1 




OPNEXT 







TAD 


SORTCft 


TAD 


Mil 


ShA 


CLA 


JI»P 


I LPRTST 


TAO 


SORTC* 


TAO 


M5 


ShA 


S*A CLA 


IS* 


LPRTSr 


JhP 


I LPRTST 





FOCAL, 


5/69 «•••«»«** PAL1P V141 


1357 






/THE UfcU TE 


A LIKE HO 


1358 










1359 


2111 


4516 


OELE1E. FINULN /SETS 


1360 


2112 


5502 


PUPJ 


1361 


2113 


2151 


IS/ 


OEHGSw 


136? 


2114 


4506 


GFTC 


1363 


?115 


1142 


TAD 


CHAK 


1364 


2116 


1665 


Tad 


l-'CH 


1365 


2117 


7640 


S2A 


OL« 


1366 


2120 


5314 


JMP 


.-4 


1367 


2121 


1017 


TA») 


AXOU1 


1366 


2122 


7040 


CM A 




1369 


2123 


1146 


TAD 


THlSl N 


1370 


2124 


3132 


PC A 


CnTN 


1371 


2125 


1546 


tad 


I TmTSLN 


1372 


2126 


355tf 


OCA 


I LASTLN 


137 5 


2127 


1075 


TAD 


CFttS 


1374 


2130 


315 7 


DUK, DC A 


12 


1375 


?131 


1557 


tad 


1 T2 


1376 


2132 


7450 


SNA 




1377 


2133 


5346 


jhp 


dune 


1378 


2134 


3156 


ncA 


Tl 


137V 


2135 


1146 


TAD 


THlSL* 


13»w 


2136 


7141 


CIA 


CLL 


1361 


2137 


1156 


TAD 


Tl 


1362 


2140 


7630 


Stl 


CLA 


1383 


2141 


1132 


TAU 


(;=MTk 


1364 


2142 


1156 


TAP 


Tl 


13«5 


2143 


3557 


OCA 


I T2 


1386 


2144 


1156 


TAD 


Tl 


1367 


2145 


5330 


JMP 


DOK 


1368 






///// 





*-jUE-7tf 



11:36 



PAOt 36 



*TH1SLN M AhU "LASTLY" 
/ALHFAhY GONE 
/DISABLE TRACE 
/MFaSUDE LENGTH 



/SAVE LAST ADDRESS 



/LENGTH < t\ 
/DISCONNECT 

/START LIST AT TOP 
/EXAMINATION APLWESS 
/GET THE NEXT AOf>K. 

/test fop end 
/yfs-kpap up all. 
/save next address, 
/compare line positions 



/SKIP IE THlSLN > X 
/CHANGE (X) TO ACCOUNT K ON 
/GARAGE COLLECTION. 

/GET NF XT 



/•«•«»« FOCAL, 5/69 »«««««»«* PALI" Vl"l /S-JUI -7*5 li:38 <>AGL ,W 

13«9 /GAhPmOL Cf'LLtCllUN 

139/ 

1391 2146 74*»* DUNt , CM* /HAUK'JH L FOR XR 

139? 2147 1146 TA!» .ThIsI !v 

1393 215* 3wll OCA >kT 

13^4 2151 113k! Ta = - Ci^K /SFHV tf'U OF NuSt 

1395 ^l^ii 70** (>* 

1396 2153 1146 TA»> iHfbl. >i 
13^7 2154 3^1 2 OCA *kT^ 

139* VlSt> 1132 T Af= C'\iTr< /COrt^tCT LMu OF RUmR H^lNl'Ew. 

13^9 2156 jl34 TA« *UFk 

14^«^ 2157 3134 OCA huFk 

14*1 216* 1*1* TAP AX IN /COhPUTL COUNT 

14*2 VIM 7*4/5 CMA 

14*3 2162 1*12 TAU >nl i 

14*4 2163 3156 OCA M 

14^5 2164 jwlka TAP / X I w 

14H6 2165 1132 TAP Ci\TH 

14*7 2166 3*1* DC A A X 1 i\ 

14*6 2167 1412 TAI. I XKT2 /STPHJN LUKLR PART. 

14*9 217* 3411 OCA I XwT 

141* 2171 2156 \bl Tl 

1411 2172 5367 JKP .-3 

1412 ?173 S311 JMP F-tLt. Tt /kFSILT • L ASTLN • , • TH J SU', • , anO UaTa HEln. 

1413 ///// 

1414 /UPl IuN TAPLf 

141b 2174 6457 OPTlH|_» OPTk /SWITCH TO Kt-YHUARO INPUT 

1416 217b 6453 OPTN /kFAOLR I<\PUT 

1417 2176 3237 OPTT /TTY OUTPUT 
1416 2177 3234 OPTP /HUNCH UUlPuT 

1419 22*0 33*3 OPT1 / 1 MTFKPKF T I Vt/PUMLR 1C I/O 

142td 22*1 33*2 OPTC /SlNGLF CHARACTER I/O 

1421 22*2 3244 OPTCOL /PRINT " : " AT "ASK" 

1422 22^3 3243 OPTX /SUPPRFSS M : " 

1423 22*4 3252 PPTt /fcCMO KtYbOAPO INPUT 

1424 22*5 3253 OPTN /\kQ FCho 

1425 22*6 3256' OPTS /bPT VARIARL^ TtRMINATOR 

1426 22*7 3271 OPTtf /START DISK MONITOR 
1427 

142tt 2210 FNTAPL=. 

1429 221» 2533 2533 /ARS 

143* 2211 265* 265* /SGN 

1431 2212 2636 2636 /ITR 

1432 2213 2565 25^5 /'US 

1433 2214 263* 263* /i<Ar\i 

1434 2215 2623 2623 /nXS 

1435 2216 2517 2517 /ARC 

1436 2217 2572 2572 /mTh 

1437 222rf 2624 2624 /LXP 
143b 2221 2625 2625 /LOG 

1439 2222 2654 2654 /SIfM /LIST OF COUEO FUNCTION >- ! AMtS 

144i4 2223 2575 2575 /COS 

1441 2224 27*2 27*2 /SOT 

1442 2225 2631 2631 /i«E- 
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SINGLF LI PES, GROUPS, OR VARIABLES 
/SFE IF "ALL" 



1443 






/LPASK 


SINGI 


_F LI PES, 


1444 


2220 


1142 


ErtAbF, 


tad 


CHAN 


1445 


2227 


1003 




TAD 


MINUSA 


1446 


2230 


7640 




S£A 


CLA 


1447 


2231 


5240 




JMP 


FHVX 


144rt 


223? 


1^7 7 




TAO 


F NOT 


144V <* 


?266 


3134 




OCA 


RUFR 


1450 


2234 


3 4 75 




RCA 


I CFPS 


14^1 


2 2 5*> 


1134 


FRV , 


TAD 


STA^Ttf 


145? 


223o 


3155 




oca 


LASTV 


14 0.S 


2237 


517 7 




JMP 


MART 


14 5 4 






///// 






1455 


2240 


4r>15 


FRVX* 


GtTLM 


1456 


2241 


1143 




TAD 


LlNEN'O 


1457 


2242 


7040 




Slf A 


CLA 


143d 


2243 


S?5rt 




jhp 


FHL 


l45<-> 


?244 


1134 




TAO 


STAKTV 


14ov) 


2245 


3155 




OCA 


LASFV 


14M 


2246 


5b47 




JMP 


I .♦! 


146? 


224 7 


tfol 6 




PROG 


14^3 






///// 






14o4 


2250 


1134 


F.KL. 


TAD 


hoFh 


14o*7 


2251 


3010 




OCA 


ax In 


lA^h 


2252 


45*1 


ERG, 


PUSHJ 


I4f>7 


225 3 


2111 




DtLFlE 


1 4 1 1 


2 25 4 


2146 




Ib^ 


ThISL <>i 


1 4 h V 


22^5 


1141 




TAO 


^AGSfc 


14/') 


2 25 6 


7 7i A 




StfA 


CLA 


14/1 


P25 7 


1546 




TAO 


T TrifSLN 


14 7? 


2 2^'id 


4524 




TSTGRP 


14 73 


22^1 


5235 




JhP 


ERV 


1474 


2 26 2 


1546 




TAO 


I THTSLN 


147-5 


226 3 


3143 




OCA 


LlNL^u 


147^ 


2264 


5252 




JMP 


IRG 



/YES, ERASE ALL TEXT 

/EPASE VARIABLES 

/PROGRAM EXECUTION ENDS 

/GFT LINE NUMBFR 
/SFE OF ?ERO OR NONE 

/NO. ERASE LINFS 
/YES, ERASE VARIABLES 

/CONTIMUF PROCESSING 

/ERASE LINES 
/EXTPACT ONE LINE 



/IF GROUP, SEE IF END OF GROUP 

/YFS 

/NO, CONTINUE FRASING GROUP 
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/rtOUTINt CALLEU VIA W FIN»)LN": 

/SEARCH FOR A GIVEN LINE I.O. =C "LINENO" ] 

/1S7 KETUKN IF NOT FOuNO* 

/2And IF FOUND. 

/"THlbLtN" = FOUND LINE UP NEXT LAKGER. 

/ M LAS1LN W = LESSF* ANy/OR LAST. 

/"TtXlP" IS SET 

XKlNPt 

TAD CFHS /INITIALIZE' POINTERS TO riRST LINE 

PC A LASTLN 

TAD CFHS 

FINDN. OCA THlbL* /SAVE ThlS ONE 

TAD ThISLn 

OCA XPT2 

TAD LINLKO 

CIA 

TAD I XKT2 /LINFNO=tt WILL ALSO BE FOUND 

SNA 

IS/ XFIrtP /FOUND IT (2ND EXIT) 

ShA CLA 

JhP FEND? /PAST IT. 

TAD THISLN /MOVE POINTERS 

OCA LASTLY 

TAD I THISLN 

S?A /SKIP IF END OF TEST 

JhP F INUK 

FtN«J3» TAD THISLN 

I A C 

f)CA AXOUT /StT *TEXTP", 

OCA XCT 

JhP I XFIND 



14/7 






147rt 






1479 






14 b/ 






14bl 






14^2 






140,5 






14C4 






14b5 






14«6 


22*5 


V 0/0 


14b ; 


2266 


107i> 


14b s 


2267 


3150 


14*9 


2270 


J075 


14^/ 


2271 


3146 


14^1 


2272 


114fo 


14<>2 


2275 


3012 


14V^ 


2274 


1143 


14*4 


2275 


7^41 


14^5 


2276 


1412 


14^6 


2277 


7450 


14V7 


23H0 


2265 


I49rt 


23H 


7 7*0 


149y 


23H2 


5310 


1517/ 


23t-3 


1146 


15*1 


23H4 


3150 


15/ 2 


2 31 5 


1546 


15i*3 


?'SV. 6 


7440 


lSi 4 


23^7 


5271 


15.>5 


2310 


1146 


\htfh 


2311 


7001 


15^7 


2312 


3017 


15^ 


2313 


3020 


15/9 


2314 


5665 
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1510 












1511 


2315 


Pi V> 


UMA, 


i'/ 




1512 


2316 


4351 




JtlS 


GtTl 


IS IS 


2317 


7/lt^ 


1 F , 


SPA 


CLa 


1514 


2 3 20 


It £6 




7 Ah 


Cl«w 


1515 


2321 


1 37/ 




TAP 


* 1 3 / 


1515 


2322 


1142 




TAh 


CnfiK 


1517 


2323 


7450 




SNA 




151b 


2324 


533/ 




J^P 


HI X 


1519 


2 3 25 


1 ^ 4 




TAU 


f L 53 7 


152tf 


2326 


314 2 


U i -J , 


ncA 


CHAN 


1521 


2327 


1151 




TAD 


OLH^Sw 


1522 


2330 


1152 




TAH 


HMPSlr- 


1523 


2331 


7650 




SNA 


CLA 


1524 


2332 


4512 




PR INTO 


15,25 


2333 


5715 




JMP 


I UTPA 


1526 






////// 






1527 


2334 


4551 


FXTk, 


JhS 


CtTl 


1523 


2 335 


7#4 




ChA 




1529 


2336 


5317 




Jiip 


U T K 


153>> 






/// 






1531 


233 7 


1151 


Uf x. 


TAH 


DLHbS* 


1552 


2340 


7640 




5^ A 


CLA 


153.5 


'234 1 


534/ 




JKP 


.+6 


1534 


2 34 2 


1152 




TAii 


HMPbW 


15.55 


2343 


765/J 




SNA 


CLA 


1536 


2344 


7001 




I AC 




1537 


2345 


3152 




pca 


OMPSW 


153« 


2346 


5316 




JMP 


U 1 R A + 1 


15 3 * 


234 7 


1032 




TAH 


F'277 


154.1 


2350 


5326 




JHP 


UTU 


1541 












1542 


2351 


H 


GL11, 


* 




1543 


2352 


2020 




lb/ 


XCT 


1544 


2353 


53*6 




JMP 


CLT3 


1545 


2 354 


1021 




TA.i 


G1EM 


154 6 


2355 


PI071" 


GLNO, 


AN Li 


^77 


1547 


2356 


3142 




OCA 


CHAR 


154d 


2357 


1142 




TAH 


CHAR 


1549 


2360 


1023 




TAM 


M77 


1550 


2361 


7650 




SNA 


CLA 


1551 


2362 


5334 




JMP 


FXTR 


1552 


2363 


1142 




TAU 


CHAR 


155 3 


2364 


1376 




TAh 


M 4 i>i 


1554 


2365 


5751 




JMP 


I GtTl 


1555 






///// 







/UT'PACK CHARACTER. - "GFTC" 

/Nfirt'- A I- XTLNO 
/3V-W-337 4 340-376 
/2< i V>-276 & 200-236 



/"?" FPUNiu 



/PPIMT ONLY IF BOTH AkF *tRu. 



/fFST FOP TRACF-F.MAHLtU 



/FL1F TH«- TRACF FLOP 



/GF1 NFXl CHARACTER INSTFA'). 
/TRACL OlSAbLth = Rf-TOhiv »?• 



/UNPACK 6-RITS 
/STARTS=* 



/SAVF 



/LXTF^IiFD 





FOCAL, 


5/69 «»*•*»»*» 


PALI?'* V141 


6-JUL-70 


1556 












1557 


2366 


1417 


GtT3, 


TAD I AXPUT 


/IX-Mfc*) 


1556 


2367 


3021 




DCA GTE* 




1559 


2370 


7tf40 




CM A 




156ri 


2371 


3020 




OCA XCT 




15M 


2372 


1021 




TA'J GT£.*» 




156? 


2373 


4520 




RTL6 




1564 


2374 


7*J04 




RAL 




1564 


2375 


5355 




JMP Gt.Nu 




15o5 


2376 


7740 


M4'*i. 


-40 




1566 


2377 


7641 


M137, 


-137 




1567 






///// 






1566 






/UPT1UN 


LIST 




1569 


2400 


0313 


OHTLST, 


"K 




1570 


24*1 


0322 




"K 




1571 


2402 


0324 




"T 




1572 


2403 


0320 




"P 




1573 


24*4 


0311 




W I 




1574 


2405 


0303 




W C 




1575 


2406 


0272 




t» • 




1576 


2407 


0330 




"X 




1577 


2410 


0305 




W E 




15 78 


2411 


0316 




"N 




1579 


2412 


0323 




"S 




156;4 


2413 


0315 




"M 




1561 






///// 






1582 






/ANALUG 


-DIGITAL CONVERSION 


1564 


2414 


6004 


XADU, 


6004 




1564 


2415 


3045 




OCA FLAC1 


/ARG MUST 


1585 


2416 


5500 




HtTUWN 





11:38 oAGt 41 



RE 
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1586 
15H7 
15«8 
1589 
1590 
1591 
1592 
1593 
1594 
1595 
1596 
1597 
1598 
1599 
1600 
16*1 
161*2 
1603 
1604 
1605 
1606 
1607 
1608 
1609 
1610 
1611 
1612 
1613 
1614 
1615 
1616 
1617 
1618 
1619 
1620 
1621 
1622 
1623 
1624 
1625 



2417 
2420 
2421 
2422 
2423 
2424 
2425 
2426 
2427 
2430 
2431 
2432 
2433 
2434 

2435 
2436 
2437 
2440 
2441 
2442 

2443 
2444 
2445 
2446 
2447 
2450 

2451 
2452 
2453 
2454 
2455 
2456 
2457 
2460 
2461 
2462 



01000 
1550 
3534 
1134 
3550 
1135 
7440 
3410 
1010 
7081 
3134 
1134 
3155 
5617 

0000 

4504 
C017 
1142 
4503 
5635 

0000 
1413 
3142 
4505 
0017 
5643 

0000 
0024 
7041 
3157 
1143 
0024 
1157 
7650 
2251 
5651 



XtNULN, 



/TERMINATE THE 0UFFERED LINE 



"FNDLN" 



///// 
TXTSAV. 



/ 

TXTHFS. 



///// 

GHPTSI . 



TAD I LASTLN 

OCA I BUFH 

TAD RUFR 

OCA I LASTLN 

TAD AUO 

S2A 

RCA I AXJN 

TAD AXIN 

IAC 

DCA BUFR 

TAD STARTV 

DCA LASTV 

JMP I XfcNPLN 



PUSHF 

TEXTP 
TAD CHAR 
PUSHA 
JMP I TXTSAV 



PUPA 

DCA ChAR 
POPF 

TEXTP 
JMP I TXTRES 



AND P7600 

CIA 

OCA T2 

TAD L1NENO 

AND P7600 

TAD T2 

SNA CLA 

ISZ GRPTST 

JMP I GRPTST 



/SAVE OLD POINTER 
/POINT TO NEW LAST LINE 
/CHECK FOR EXTRA INFO 

/COMPUTE NEW END OF BUFFER 

/RESET VARIABLE LIST 

/SAVF CHAR AND TEXT POINTERS 



/RESTORE SAME 



/AC VS LINENO - -TSTGRP" 
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1626 
1627 
1629 
1629 
16 3*) 
1631 
1632 
1653 

163 4 
16^5 
1636 
1637 
163« 
1639 

164 
1641 
1642 
1643 
1644 
1645 
1646 
1647 
1646 
1649 
1650 
1651 
1652 
16*>3 
16^4 
1655 
1656 
1657 
1658 
16^9 
1660 
1661 
1602 
1663 
1664 
1665 
1666 
1667 
166H 
166V 
1670 
16/1 
1672 
16/3 
1674 
1675 
16/6 



/I-O SUBROUTINES 



2463 
24 6 4 
24 6^ 
2466 
2467 
2470 
2471 
2472 
2473 
?474 
2475 
2476 

2477 
25^0 
25^1 
25^2 
250 3 
25M 
25f>5 
25*6 
2«> 11 7 



2514 
2515 
2516 
2517 
2520 
2521 
2522 
2523 
2524 
2525 
2 526 
2527 



2463 

0000 
4540 
3142 
4511 
1611 
5663 
4512 
1142 
1024 
7640 
5663 
5264 

£0Vi0 
7450 
1142 
1065 
7450 
5310 
1060 
4537 
5677 



2510 1060 

2511 4537 

2512 10^7 

2513 53^6 



H0/;0 
4511 
1141 
7410 
5326 
1127 
2314 
7640 
5714 
2314 
45^6 
5714 



2527 
261:0 



VAL=. 
CHIN. 



ECHO, 



/READ IN A CHARACTER SUBR. 

JMS I iNUtV 

OCA CHAK 

SONTC /LINFFEEO OR RU80UT? 

FCHOLST-1 
JMP I CHIN 
PRINTC 



"READC" 



/YFS 

/SEE IF ?00 (L/T) 



///// 

OUT* 



/NO, EXIT 

/YES, GET ANOTHER 

/OUTPUT A CHARACTER 

/USE (AC) OR (CHAR) 



TAU CHAK 

TAD P760P 

S2A CLA 

JMP I CHIN 

JMP CHlN+1 



SNA 

TAU CHAR 

TAO MCR 

SNA 

JMP OUTCP 

TAD CCR 

JMS I OJTOEV 

JMP I OUT 

TAD CCR 

JMS I OUTUEV 

TAU CLF 

JMP OUTX-1 
///// 

/IEST FUR A COMMA, SEMICOLON, OR C* - "TSTERM* 
/RETURNS! OTHER, , OR CK> COMMA 
/GETS NEXT CHARACTER AF TFR COMMA OR OTHER 
XISTFR, fl 



"PRINTC" 



OUTX, 
///// 
OUTCP, 



SORTC 

TLIST-1 
SKP 

JMP ,+6 
TAO SORTCN 
TS? XTSTFR 
S2A CLA 
JMP I XTSFER 
IS/? XTSTFR 
GETC 
JMP I XTSTER 



/LOOK FOR .;CR 



/OTHER, GO PAST IT 

/FOUND ONE, SEE WHAT IT IS 



/; OR CR: 2ND EXIT 
/COMMA, 3RD EXIT 



///// 

CUMLIN=.-1 
n»J 1 -U)t)T=260^ 



/COMMANO-INPUT BUFFER LIVES HERE. 
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1677 
1678 
1679 
1680 
1681 
1602 
1683 
1684 
1685 
1686 
1687 
1688 
1689 
1690 
1691 
1692 
1693 
1694 
1695 
1696 
1697 
1698 
1699 
1700 
1701 
1702 
1703 
1704 
1705 
1706 
1707 
1708 
17*39 
1710 
1711 
1712 
1713 
1714 
1715 
1716 
1717 
1718 
1719 
1720 
1721 
1722 
1723 
1724 
1725 
1726 
1727 
1728 



2600 
2601 
2602 
2603 
2604 
2605 
2606 
2607 
2610 
2611 
2612 
2613 
2614 
2615 
2616 
2617 
2620 
2621 
2622 
2623 
2624 
2625 
2626 
2627 
2630 
2631 
2632 
2633 
2634 
2635 
2636 
2637 
2640 
2641 
2642 
2643 
2644 
2645 
2646 
2647 
2650 
2651 
2652 
2653 
2654 
2655 
2656 
2657 



2600 



0000 
(1000 
7575 
32^0 
7010 
3201 
6031 
5225 
6036 
0026 
1015 
3306 
1306 
1202 
7650 
5345 
1264 
7640 
4526 
1306 
3264 
6041 
5244 
6042 
3260 
1663 
7450 
5244 
6044 
3260 
3663 
1263 
7001 
0031 
1261 
3263 
6244 
6101 

T000 
6011 
5253 
6012 
3037 
1201 
7104 
1200 
6001 
5400 



•COMOUT 

/INTERRUPT PROCESSOR, 

SAVAC, /CONTENT 
SAVLK, /CONTENT 
MBREAK, -2W3 /CONTROL 
ItfTKPT, OCA SAVAC 

RAH? 

OCA SAVLK 

KSF 

JMP TINT 



S OF AC 

S OF LINK 

-C 

/SAVE WORKING PATA 



TINT, 



EXIT, 



EXITJ, 



KRB 

AND P177 
TAD C200 
OCA SIN 

Tad sin 

TAD MBRtAK 

SNA CLA 

JMP RECOVrt 

TAD INBUF 

Si!A CLA 

ERR0R2 

TAO SIN 

OCA INHUF 

TSF 

JMP EXIT 

TCF 

OCA TELSW 

TAO T OPTKI 

SNA 

JMP EXIT 

TPC 

OCA TELSW 

OCA I OPTRI 

TAD OPTRT 

IAC 

AND P17 

TAO OPTR0 

OCA OPTRi 

6244 

6101 

NOP 

RSF 

JMP ,*3 

RRH 

OCA HINBOF 

TAO SAVLK 

RAL CLL 

TAO SAVAC 

ION 

JMP I 



/CHECK FOR KEYBOARD F1HST 

/READ PUFFFR AND CLf.AR FLAG TO f-FfCH nFXT 
/IGNORE PARITY BIT 



/MANUAL STOP? 

/ANY SPACE? 

/WILL fcAIT FOR OUTPUT HUFFFk 

/SAVE INPUT 

/TURN OFF THE IN-PROGRESS FLAG, 



/UONE 

/TYPE NEXT. 

/CLEAR AC AND TURN ON THF FLAG. 

/2ER0 OUT THE DATA AREA 



/RESTORE MEMORY FIELD 

/SMP 

/(HLT)-IF YOU HAVE MEMORY PaRITY 

/TEST H.S, READER FLAG 

/READ PUFFER AMD CLFAR FLAG 
/SAVE CHARACTER 
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1729 
1730 
1731 
1732 
1733 
1734 
1735 
1736 
1737 
1736 
1739 
1740 
1741 
1742 
1743 
1744 
1745 
1746 
1747 
1748 
1749 
1750 
1751 
1752 
1753 
1754 
1755 
1756 
1757 
1758 
1759 
1760 
1761 
1762 
1763 
1764 
1765 
1766 
1767 
1768 
17*9 
1770 
1771 
1772 
1773 
1774 
1775 



2660 
2661 
2662 
2663 
2664 

2665 
2666 
2667 
2670 
2671 
2672 
2673 
2674 

2675 
2676 
2677 
2700 
2701 
2702 
2703 
2704 
2705 
2706 
2707 
2710 
2711 
2712 
2713 
2714 
2715 
2716 
2717 
2720 
2721 
2722 
2723 
2724 
2725 
2726 
2727 
2730 
2731 



0001 
3400 
3400 
3400 

00&H3 

0000 
1264 
7550 
5266 
3275 
3264 
1275 
5665 

0000 
3265 
1265 
1065 
7650 
3053 
1265 
4732 
2053 
0000 
6001 
1662 
7640 
5310 
1260 
7640 
5322 
1265 
6046 
3260 
5675 
1265 
3662 
1262 
7001 
0031 
1261 
3262 
5675 



TfcLSW, 
OPTR0, 
OPTRO. 
OPTk!, 

INHUF, 

///// 

X133* 



///// 

XOUTL » 



SIN. 



1 

IOUUF 
IOBUF 
IOBUF 





TAD InHuF 
SPA SNA 
JMP .-2 
DCA XOUTL 
OCA INBUF 
TAD XOUTL 
JMP I XI 33 



/INPUT SWITCH 
/OUTPUT POINTERS 
/VARS 

/KEYBOARD BUFFER. 





DCA 

TAO 

TAD 

SNA 

DCA 

TAO 

JMS 

IS? 



ION 

TAD 

S2A 

JMP 

TAO 

SZA 

JMP 

TAO 

TLS 

DCA 

JMP 

TAD 

DCA 

TAO 

IAC 

AND 

TAO 

DCA 

JMP 



XI33 
XI 33 

MCR 

CLA 

TABCTK 

XI33 

T SKPNP 

TABCTR 



I OPTRO 

CLA 

.-2 

TELSW 

CLA 

,♦5 

XI33 

TELSW 

I XOUTL 

XI33 

I OPTRO 

OPTRO 

P17 

OPTK0 
OPTRO 
I XOUTL 



/VIA (INDEV) 
/ANY INPUT? 

/NO = WAIT 

/CLEAR INPUT BUFFER 



/VIA (OUTOFV) 

/SAVE CURRENT CHARACTER. 

/IS IT A CR? 



/YES, RESET CARRIAGE INUFX 

/SKIP IF A NON-PRINTING CHARACTER 
/PRINTING: INCREMENT INDEX 

/BE SURE INTERRUPT IS ON. 

/ANY ROOM? 

/A CHARACTER IS NON-?E*0 

/NO = WAIT, 

/IN PROGRESS? 



/NO 

/TYPE CHARACTER, 

/SET IN-PROGRESS FLAG. 

/RETURN 

/SEND DATA 

/SET POINTERS 



2732 3014 



/////// 

SKPNP. 



SKIPNP 
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1776 
1777 
177b 
1779 
17b0 
17«1 
1782 
1783 
1764 
17«5 
17«6 
1787 
1768 
1769 
1790 
1791 
179? 
1793 
1794 
1795 
1796 
1797 
1798 
1799 
18v*0 
lbtfl 
lb02 
lb03 
1604 
1805 
1806 
1807 
1808 
1809 
1810 
lbll 
1H12 
1613 
1814 
1815 
1816 
1817 
lblb 
lbl9 
lb20 
1821 
18?? 
1823 
1M24 
1825 
1826 
1627 
1828 



2733 
2734 
2735 
2736 
2737 
;>740 
2741 
2742 
2743 
2744 
2745 
2746 
?747 
2750 
2751 
2752 
2753 
2754 
2755 
2756 
2757 
2760 
2761 
2762 
2763 
2764 
2765 
2766 
2767 
2770 
2771 
2772 
2773 
2774 
2775 
2776 
2777 
3000 
3001 
3002 
3003 
3004 
30 5 
3006 
300 7 
3010 
3011 
3012 
3013 



4526 
4526 
4526 
3225 
3203 
3336 

0000 

7240 
1336 
3143 
4733 
6002 
5347 
1015 
3143 
2260 
1025 
3132 
7040 
1261 
3011 
3411 
2132 
5355 
3264 
1261 
3263 
1261 
3262 
4734 
1161 
3113 
7040 
6046 
7200 
1060 
4512 
1032 
4512 
4514 
2145 
1545 
7450 
5211 
3143 
10*2 
4512 
4512 
4514 
1060 
4512 
51/7 



ERROR2±tRROR; ERR0R3=£RR0RJ FRR0R4sERR0R 



WAITP. OWAIT 
OPTUOP, OPTTOO 
ERRORS. OCA .♦! 



FKR2, 



RLCOVR, 





CLA CMA 

TAD FRR2 

OCA LlNtK'U 

JMS I WAJTP 

IGF 

JMP ,*3 

TAD C200 

DCA LINtMJ 

IS2 TLLSW 

TAO M20 

OCA CNTR 

CM A 

TAD OPT*? 

DCA XRT 

OCA I XRT 

IS? CNTR 

JMP .-2 

DCA INBUF 

TAD OPTRP 

OCA ORTRI 

TAD ORTR0 

DCA OPTRO 

JMS I OPTDOP 

TAD PTCH 

DCA 113 

CMA 

TLS 

CLA 

TAD CCR 

PRINTC 

TAO P277 

PRINTC 

PRNTLN 

IS2 PC 

TAD I PC 

SNA 

JMP .+6 

OCA L1NLNU 

TAO P7700 

PRINTC 

PRINTC 

PRNTLN 

TAU CCR 

PRINTC 

JMP START 



/ERROR CALLED FROM A TABLE 

/LIMIT EXCEEDED 

/COMPUTE CALLING ADORESS (ALSO "SPACE") 

/ANO USE IT AS ERROR NUHPER. 

/SAVE ERROR CODE. 

/WAIT FOR OUTPUT TO FINISH 

/DISABLE INTERRUPT FOR INITIALISATIONS 



/Save frror number 

/TURN ON IN-PROGRESS SWITCH 
/SETUP INIT COUNT 



/INIT I/O BUFFERS. 



/INIT KEY-BUFR. 
/INIT TTY POINTERS. 



/SET TO TTY OUTPUT 

/RFSFT "READC" 

/IF AN ERROR OCCURS. 

/PREPARE A STOP BIT FOR TTY 

/AND RAISE FLAG 

/PRINT A CR 

/MAKE A ? 

/AND TURN ON THE INTERRUPT 

/PRINT ERROR NUMBER AND, 

/UNLFSS IT IS FERO, (X-HFrt) 



/PRINT SPACE AGAIN ANU 
/PRINT LINE OF ERROR. 

/INTERRUPT WILL RE RF-CNABLED Sun*. 



///// 
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lb29 






/SKIP 


IE (AC) IS A NON- 


•PRINTING CHARACTER 


1630 


-5014 


0000 


SKIPNP 


* 




lb3l 


3015 


4520 




HTL6 


/PRINTING CHARACTERS ARE 240-33 


1832 


3016 


7710 




SPA CLA 




lb 33 


3017 


7020 




CML 




lb34 


3020 


742t) 




SNL 




16 35 


3021 


2214 




IS* SKIPMP 




16 36 


3022 


5614 




JMP I SKfPNP 




1637 






///// 






Ibid 






/PACK 


A CHARACTER INTO 


THE BUFFER - *PACKC" 


lb^v 


3023 


0000 


PACHUF 


, 




1640 


3024 


4510 




SORTJ 


/LOOK FOR ? OR RUBOuT 


lb4l 


3025 


3055 




PACLST-l 




1642 


3026 


6126 




PACLS2-PACLST 




1643 


3027 


1142 




TAD CHAR 




1644 


S030 


4214 




JMS SKIPNP 


/PRINTING CHARACTER? 


1645 


3031 


5234 




JMP . *3 


/YFS 


lb46 


3032 


1071 




TAD P77 


/NO, PACK 77 FIRST 


lb47 


3033 


4242 




JMS PCK1 




1846 


3034 


1142 




TAD CHAN 


/PACK 6-BIT CHARACTER 


1649 


3035 


0071 




AND P77 




1850 


3036 


4242 




JMS PCK1 




1851 


3037 


5623 




JMP I PACbUF 




1852 






///// 






1653 


3040 


1054 


PUUtS* 


TAO P337 


/USE 337 FOR ? 


1854 


3041 


5235 




JMP .-4 




1655 






///// 






1856 






/PACK 


ONE 6-hIT WORD 




1857 


3042 


0000 


PCK1* 







1858 


3043 


2136 




IS;? XCTIN 




1659 


304 4 


5260 




JMP ROT 


/PACK LEFT HALF 


1860 


3045 


1135 




TAD AUD 


/PACK RIGHT HALF AND STORE 


1861 


304 6 


3410 




DC A I A X 1 1\ 




1662 


3047 


1013 




TAD PDLXP 


/CHECK FOR SPACE 


1863 


3050 


7141 




CLL CIA 




1864 


3051 


1 0k>5 




TAD P13 




1865 


3052 


1010 




TAD AAilM 




j. bob 


^kivO 


7 o „ 




S?l CL A 




1 6*7 


"*0S4 


-3526 




ERROR 


/BUFFER OR STORAGE OVERFLOW 


1666 


3055 


5642 




JMP I PCK1 




1869 






///// 






1* 7rt 


3056 


P277 


PACLS1 


» 277 /? 




1671 


305 7 


037 7 




377 /KUBOUT 




In/V 






///// 






1673 


3060 


4520 


HUT, 


RTL6 /SAVE LEFT HALF 


1674 


3061 


3135 




DCA ADD 




1*76 


3062 


7040 




CMA 




lr /h 


3063 


3136 




DCA >CTIN 




16/7 


3064 


5642 




JMP I PCK1 
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1878 /KUBOOT OMF CHARACTER 

1679 3065 1010 RUR1, TAD AX I ^ /SAVE POINTLR 

168tf 3066 3242 DCA PCM 

1861 3067 1136 TAD XCTIN /CHARACTER IN ADD? 

1882 3070 7640 S2A CLA 

1883 3071 5277 JMP KUH2 /YFS 

1884 3072 1010 TAD A X I iv /NO, tfFGINNING OF HUFFtK? 

1885 3073 7041 CIA 

1886 3074 1153 TAD PACKS! 

1887 3075 77t'0 SMA CLA 

1688 3076 5322 JMP PK/tRO /YES, IGNORE 

1869 3077 1324 RUB*, TAO SPLAT /ECHO A RACKSLASH 

1890 3100 4512 PRINTC 

1891 3101 2136 IS* XCT1N 

1892 3102 5310 JMP POH3 /HACKUP STORAGE 

1693 3103 1642 TAD I PCK1 /KILL ADO AND CHt CK FOR 77 

1894 3104 P071 AND P77 /IN 2ND HALF OF LAST STu'^tD WUWlJ 

1695 3105 1023 TAD M77 

1696 3106 7640 S2A CLA 

1897 3107 5322 JMP PK2ERO /NO. DONE 

1698 3110 1642 ROR3* TAD I PCK1 /KILL 2ND HALF OF LAST STURtO WORD 

1899 3111 0062 AND P770P 

1900 3112 3135 OCA ADO 

1901 3113 7040 CMA /BACKOP POINTER 

1902 3114 1010 TAD AXIN 

1903 3115 3010 DCA AXlN 

1904 3116 1135 TAD ADD /TEST FOR 77 IN ADD 

1905 3117 1006 TAD C100 

1906 3120 7640 S*A CLA 

1907 3121 7040 CHA 

1908 3122 3136 PKZERO, DCA XCT1N 

1909 3123 5623 JMP I PACbUF 

1910 3124 0334 SPLAT, 334 
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1911 






/DUMP ThF SYMBOL J ABLE 


COMTEK S 


1912 


3125 


4504 


TUUMP, 


PUSHK 


/SAVt TEXT POINTERS 


1913 


3126 


0017 




TFXTP 




1914 


3127 


7040 




CHA 




1915 


3130 


1134 




TAD SIAkTV 


/START VARIAOLF LIST 


1916 


3131 


3014 


TuLOOP, 


nCA FLTXP 




1917 


3132 


1014 




TAD F L T X ^ 


/TEST FOP END OF LIST 


191tf 


3133 


704 




CHA 




1919 


3134 


1155 




TAD LASTV 




1920 


3135 


7650 




SKA CLA 




1921 


3136 


5370 




JMP TOE NO 


/LNO FOUND 


1922 


3137 


1375 




TAD TDTEXT 


/NO, SET UP POINTERS 


1923 


3140 


3017 




OCA AXOUT 




1924 


3141 


3020 




OCA XCT 




1925 


3142 


1414 




TAD I FLTXR 


/2 LF TTEPS OF VAR. NAMF 


1926 


3143 


3376 




OC'A TDTEXr + 1 




1927 


3144 


45W1 




PUSHJ 


/PRINT NAMF AND H <" 


1928 


3145 


1241 




TUUOT 




1929 


3146 


1414 




TAH I FLTXR 


/GFT AMU PRINT' SUBSCRIPT 


1930 


3147 


4774 




JMS I TunuTP 




1931 


3150 


4501 




PUSHJ 


/PRINT ")5" « 


1932 


3151 


1241 




TUUOT 




1933 


3152 


1005 




TAD P13 


/SPACE TO HTH COLUMN 


1934 


3153 


304 6 




DCA FLAC2 




1935 


3154 


4501 




PUSHJ 




1936 


3155 


1374 




TAH+12 




1937 


3156 


?014 




IS? FLTXP 




193tf 


3157 


4407 




FEKT 


/PICK UP VALUE 


1939 


3160 


5414 




FGT I FlTXR 


/(UOFS NOT AUTOINuFX) 


1940 


3161 


0tf00 




FEXT 




1941 


3162 


4472 




JHS I FOUTPUT 


/PRINT VALUE 


1942 


3163 


1060 




TAD CCK 


/AND A C.K. 


1943 


3164 


4512 




PRINTC 




1944 


3165 


1014 




TAD FLTXP 


/INCREMENT FOR NEXT VAR. 


1945 


3166 


1035 




TAD \>2 




1946 


3167 


5331 




JHP TDLOOP 




1947 


3170 


4505" 


TdEND, 


POPF 


/RESTORE TEXT POINTERS 


1948 


3171 


0017 




TEXTP 




1949 


3172 


5773 




JMP I .*1 




1950 


3173 


1252 




TASK4 




1951 


3t74 


6100 


TUOUTP, 


SIGOUT 




1952 


3175 


3175 


TUTEXT, 


, 


/THE FOLLOWING IS FOCAL TEXT 


1953 


3176 


*000 




/VAR. 


NAME GOES HERE 


1954 


3177 


5077 




5077 / M ( M AND C.R. 


1955 


3200 


1551 




1551 /••>=" 


AND C.R. 


1956 


3201 


7577 




7577 




1957 


3202 


1500 




1500 
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195b 
1959 
1960 
1961 
1962 
1963 
1964 
1965 
1966 
1967 
1968 
1969 
1970 
1971 
1972 
1973 
1974 
1975 
1976 
1977 
1978 
1979 
1980 
1981 
1982 
1983 
1984 
1985 
1966 
1987 
1988 
1989 
1990 
1991 
1992 
1993 
1994 
1995 



3203 
3204 
3205 
3206 
3207 
3210 
3211 
3212 
3213 
3214 
3215 
3216 
3217 
3220 
3221 
3222 
3223 
3224 



3225 
3226 
3227 
3230 
3231 
3232 
3233 

3234 

3235 
3236 
3237 
3240 
3241 
3242 



0000 
1220 
3621 
1621 
7001 
3622 
1622 
1035 
3623 
1623 
1035 
3624 
5603 
6041 
2625 
2627 
2634 
2717 



0000 
6001 
1633 
7640 
5226 
5625 
2660 

4225 

1025 
7410 
4225 
4203 
5642 
6461 



/QPTION ROUTINES 

/ 

/KOUTINE TO SET UP OUTPUT 

OPTTDO, 

TAD CTSF 

OCA I OPTTL /TSF 

TAD ! OPTTL 

!AC 

OCA 1 OPTTL+1 /TCF 

TAD I OPTTL*! 

TAD P2 

DCA I OPTTL*2 /TPC 

TAD I OPTTL*2 

TAD P2 

OCA I OPTTL+3 /TLS 

JMP I OPTTOO 
CTSFi TSF 
OPTTL, TINT 

TINT+2 

TINT+7 

SIN*11 
///// 

/ROUTINE TO WAIT UNTIL OUTPUT FINISHES 
OWAIT. 





ION 

TAD 



I TSWP 



S2A CLA 



JMP 
JMP 



TSWP, 
///// 
OPTP* 



OPTTj 
OPTXH, 



.-3 

I OWAIT 



TELSW 

JMS OWAIT 

TAD M20 

SKP 

JMS OWAIT 

JMS OPTTOO 

JMP I .♦! 

OPTRET 



/(SWAP) - FOR 2 A USER 
/LOOK AT TELSW 



/SET UP FOR PUNCH OUTPUT 
/CONVERT TO PSF; ETC. 

/SET UP FOR TTY OUTPUT 

/EXIT OPTIONS 
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1M6 

1997 

1998 

1999 

2000 

2001 

2002 L 

2003 

2004 

2005 

2006 

2007 

2008 

2009 

2010 

2011 

2012 

2013 

2014 

2015 

2016 

2017 

2018 

2019 

2020 

2021 

2022 

2023 

2024 

2025 

2026 

2027 

20ti 

2029 

2030 

^031 

2032 

^H33 



3243 
3244 
J245 
3246 
3247 
3250 
3251 

3252 
3253 
3254 
3255 

3256 
3257 
3260 
3261 
3262 
3263 
3264 
3265 
3266 
3267 
3270 

3271 
3272 
3273 



3274 
3275 
3276 
3277 
3300 



1250 
1247 
3651 
5241 
4512 
2466 
1222 

1247 
3655 
5241 
2471 

45^-6 
4511 
20^3 
741tf 
5256 
4501 
16V' 1 
4452 
3670 
5241 
6W02 

4225 

6002 
5424 



1301 
3017 

30 20 
4501 
1260 



OPTX# 
OHTCOL» 



CPRIM, 

OPTCj , 

CULP, 

///// 

OPTE, 

OPTN, 

ECHP> 
///// 
OPTS* 



3301 2036 



USERTP, 

///// 

OPTh, 



///// 
/THIS I 
HtLLOt 



///// 

HP, 



/SUPPRESS «!« ON ASK 
/RESTORE M !" 



/SFT UP FUR KEYBOARD EChO 
/SUPPRESS ECHO 



/SFT UP USER TERMINATOR FOR "ASK" 



/GFT CHARACTER 



/EXIT TU UISK MONITOR 



TAO OPTC1 
TAD CPRIK'T 
OCA I COLP 
JMP OPTXIT 
PRINTC 
CLA-PKlNTC 
TASKCL 

TAD CPRINT 
DCA I ECHP 
JMP OPTXIT 
ECHO 

GETC 
SORTC 

TERMS-3 
SKP 

JHP .-4 
PUSHJ 

FVAL 
FIX 

f)CA I tiSFRTP 
JMP OPTXIT 
USERT 

JMS OWAIT 

IOF 

JMP I P7f00 



S THE INITIALISATION COMMAND 
TAD HP 
OCA AXOUT 
DCA XCT 

PUSHJ /START BY SETTING FORMAT 

TINTR 



HPT-i 



/FOCAL TFXT w %6,4;0 K * T , I ,E , : , S ; E A* 
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2034 






/ I/O MODE OPTIONS 


2035 


3302 


7240 


OPTC* 


CLA CMA 


2036 


3303 


3305 


OPTI. 


oca iosw 


2037 


3304 


5241 




JMP OPTXIT 


2038 






///// 


• 


2tt39 


3305 


0000 


IUSW* 





2040 






/ I/O Hunt: -I" = 1 


2041 






/ 


«c w = 


2042 






///// 




2043 






/ M ASK H 


MASTER ROUTINE 


2044 


3306 


0kJ00 


iNTASKi 


. 


2045 


3307 


1154 




TAD PT1 


2046 


3310 


3225 




OCA OWAIT 


2047 


3311 


1305 




TAD IOSw 


2048 


3312 


7650 




SNA CLA 


2049 


3313 


5323 




JMP STRING 


2050 


3314 


4513 




REAOC 


2051 


3315 


1142 




TAD CHAR 


2052 


3316 


4430 




FLOAT 


2053 


3317 


4407 


ASKENO, 


FENT 


2054 


3320 


6625 




FPT I OWAIT 


2055 


3321 


0000 




FEXT 


2056 


3322 


5706 




JMP I 1NTASK 


2057 






/INTERPRETIVE BUFFERED 


2058 


3323 


1013 


SIRING, 


TAD PULXR 


2059 


3324 


3203 




OCA OPTTDO 


2060 


3325 


1364 




TAD RUFTOP 


2061 


3326 


3013 




DCA PULXR 


2062 


3327 


2151 




IS? DEBGSw 


2063 


3330 


1363 


INBARR. 


TAD HUFbOT 


2064 


3331 


3010 




OCA AXIN 


2065 


3332 


3136 




DCA XCTIW 


2066 


3333 


1363 




TAD FUFBOT 


2067 


3334 


3153 




DCA PACKST 


2068 


3335 


4513 




REAOC 


2069 


3336 


4511 




SORTC 


2070 


3337 


0032' 




C240-1 


2071 


3340 


5335 




JMP ,-3 


2072 


3341 


4510 




SORTJ 


2073 


3342 


5775 




ASKLST 


2074 


3343 


0774 




ASKLS2 


2075 


3344 


4507 




PACKC 


2076 


3345 


4513 


INGTi 


REAOC 


2077 


3346 


5341 




JMP ,-5 



0000 = INTERPRETIVE InPUT, NUMERIC OUTPUT 
7777 = SINGLE CHARACTER I/O 



/SAVE VAR, POINTFR 

/WHAT MODE OF INPUT? 

/INTERPRETIVE 

/SINGLE CHARACTER 

/CONVERT CHARACTER COUE TO FLOATING 

/POINT NUMBER 

/SAVE VALUE 



INPUT 
/SAVE PUSHDOWN LIST POINTER 

/PROTECT TOP OF ASK H UF 

/DISABLE TRACE 
/INITIALIZE ASKbUF 



/IGNORE SPACES 



/SEARCH FOR TERMINATOR 
•1 
■ASKLST 

/PACK INTO BUFFER 
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2078 
2079 
2080 
2081 
2082 
2083 
2084 
2085 
2086 
2087 
2086 
2089 
2090 
2091 
2092 
2093 
2094 
2095 
2096 
2097 
2098 
2099 
2100 
2101 
2102 
2103 
2104 
2105 
2106 
2107 
2108 



/TERMINATOR FOUNf), PROCESS INPUT 



3347 
3350 
3351 
3352 
3353 
3354 
3355 
3356 
3357 
3360 
3361 
3362 

3363 
3364 



3365 
3366 
3367 
3370 
3371 
3372 

3373 
3374 
3375 
3376 
3377 



1060 
3142 
4507 
4507 
1203 
3013 
1363 
3017 
3020 
45H 
1600 
5317 

7550 
5212 



0000 
1305 
7640 
5373 
4472 
5765 

4452 
7450 
7130 
4512 
5765 



INTERM, TAD CCR 
OCA CHAR 
PACK.C 
PACnC 

TAU OPTTpU 
HCA PuLXR 
TAD fcUFHPT 
DCA AXOUT 

dca >cr 

PUSHJ 

FVAL-1 
JMP ASKEND 

///// 

ROF«DT# AbKBUF 

RUFTOP, ASKriUF U77 + 13 

///// 

/ M TYPE M OUTPUT 

OUTPT. 

TAU lUSw 
Sj*A CLA 
JMP COUTP1 
JMS I F OUTPUT 
JMP I OUTPT 

///// 

CUUTPT 



/PACK A C.R. 

/RESTORE PDLXR 

/ 1MIT I ALI £F UNPACKING 

/EVALUATE FXPRFSSIOn 



/bOTTOP OF bUFFER 
/TOP+12 OF bUFFER 



/WHAT KlNU OF OUTPUT 

/SINGLE CHARACTER 

/NUMERIC OUTPUT; PRINT VALUt 



FIX 

SNA 

CLL CML PAR 
PRINTC 
JMP I OUTPT 
/NOTF*. "TDUMP" PRINTS ONLY IN NUMERIC MODE 



/GFT COOE FOR CHARACTER 

/MOOULO 256 

/TO ALLOW ?ERO COUF TO HP PRINTEU 





FOCAL, 
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V141 6-JUL- 


2109 




3400 


1OBUF*3400 




2110 






/ 






2111 




3420 


tefObUI-* 


20 




2112 


3420 


0000 


FHSTi 





/TEXT POINTER 


2113 


3421 


0000 




0000 


/DUMMY LINE NO 


2114 


3422 


0355 




0355 


/ C- 


2115 


3423 


0617 




0617 


/ FO 


2116 


3424 


0301 




0301 


/ CA 


2117 


3425 


1454 




1454 


/ L, 


2118 


3426 


4040 




4040 




2119 


3427 


6557 




6557 


/ 5/ 


2120 


3430 


6671 


FKSTX. 


6671 


/ 69 


2121 


3431 


7715 




7715 




2122 




3432 


BUFbEG* 


V 




2123 






///// 






2124 




2735 


LIBRARY 


rERR0R5 


/COMMAND NOT A' 



li:38 PAGE 54 



FOCAL, 5/69 *« 



PAL10 V141 



6-JUL-70 



11:36 PAGl 55 



2125 



PAUSF 
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2126 






/FOCAL 


INITIALISATION 


ROUTINE 


2127 




0176 


*START- 


1 




2128 


0*76 


3432 




PLGIN 




2129 




3432 


•6UFPEG 






2138 


3432 


7300 


BEGIN. 


CLA CLL 




2131 


3433 


1377 




TAD (RECOVR+1 


/RESTORE RESTART 


2132 


3434 


3176 




OCA START-t 




2133 


3435 


6002 




IGF 


/CLEAR FLAGS TO PREVENT INTERRUPT 


2134 


3436 


6022 




6022 


/PCF 


2135 


3437 


6032 




6032 


/KCC 


2136 


3440 


62*3 




6203 


/COF CIF 00 


2137 


3441 


6402 




6402 


/CLEAR PT08'S 


2138 


3442 


6412 




6412 




2139 


3443 


6422 




6422 




2140 


3444 


6432 




6432 




2141 


3445 


6442 




6442 




2142 


3446 


6452 




6452 




2143 


3447 


6462 




6462 




2144 


3450 


6472 




6472 




2145 


3451 


6764 




6764 


/CLEAR OECTAPE 


2146 


3452 


6772 




6772 




2147 


3453 


7200 




CLA 




2148 


3454 


6046 




TLS 


/START LOW SPEED OUTPU1 


2149 


3455 


3414 




DCA I FLTXR 


/CLEAR OUTPUT RUFFER 


2150 


3456 


?376 




IS? (-20 




2151 


3457 


5255 




JKP .-2 




2152 


3460 


1027 




TAU BOTTOM 


/INITIALIZE PUSHDOWN LIST 


2153 


3461 


3013 




DCA POLXP 




2154 


3462 


6001 




ION 




2155 


3463 


4512 




PRINTC 


/CHAR IS A C.R 


2156 


3464 


4512 




PRINTC 




2157 


3465 


4512 




PRINTC 




2158 


3466 


4501 




PUSHJ 


/TYPE FOCAL HEADING 


2159 


3467 


0641 




WRITE 




2160 


3470 


5671 




JHP I ,♦! 




2161 


3471 


2232 




FRV-3 


/ERASE ALL 
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2162 
2163 

2164 
2165 
?166 
2167 
2168 
2169 
2170 
2j7l 
2172 
2173 
2174 
2175 
2176 
2177 
2178 
2179 
2180 
2181 
2182 
2183 
2184 
2185 
2186 
2187 
2168 
2189 
2190 
2191 
2192 
2193 
2194 
2195 
2196 
2197 
2198 
2199 
2200 
22«1 
22»2 
22»3 
2204 



3576 
3577 



56*0 
5601 
^6^2 
5603 
5604 
56#5 
5606 
5607 
5610 
5611 
5632 
5613 
5614 
5615 
5616 
5617 
5620 
5621 
5622 
5623 
5624 
5625 
5626 
5627 
5630 
5631 
5632 
5633 
5634 
5635 
5636 
5637 
5640 
5641 
5642 
5643 
5644 
5645 
5646 
5647 



7760 
2746 
5600 

05000 
4430 
3364 
7040 
3260 
1363 
3044 
4755 
3365 
5215 
2260 
4526 
4506 
4522 
5212 
5250 
1260 
7700 
7040 
1364 
3364 
4342 
1127 
3043 
3042 
3041 
4313 
1162 
7640 
5241 
1045 
7700 
5214 
1361 
3760 
1162 
7110 
3162 
1045 
5762 



PtKIOu, 



NtWDlG, 



*5600 

/DECIMAL TO 
OtfCONv, # 

FLO 

OCA 
CM A 

ncA 

TAD 
DCA 
JMS 
OCA 
JMP 
IS? 
EHK 
GET 
TLS 
JMP 
JMP 
TAD 
SMA 
CMA 
TAD 
DCA 
JMS 
TAD 
DCA 
DCA. 
DCA 
JMS 
TAD 
S2A 
JMP 
TAO 
SMA 
JMP 
TAD 
f)CA 
TAD 
CLL 
DCA 
TAD 
JMP 



BINARY CONVEPSIOIV 2/10/69 



OVCHEKi 



AT 
DECEXP 

PSW1T 

C43 /35<10) 

FLACP 

I SGNTST 

INSIGN 

NEWDIG+1 

PSWIT 
OR 
C 
TN 

PERIOD 

NGTOIG 

PSWIT 

CLA 

DECEXP 

DECEXP 

MULTltf 

SORTCN 

FLOP? 

FLOP? 

FLOPj 

TRPLAD 

REMAIN 

CLA 

.♦4 

FLACl 

CLA 

NEWOIG 

IOVRL 

I IRARAC 

REMAIN 

RAR 

REMAIN 

FLAC1 

I ROTKAC 



/FLOAT A ifFRO 
/INITIALISE 



/SIGN OF MANTISSA 



/, FOUND, SEE IF FIhST 
/DOURLF PERIODS 
/LOOK FOR A DIGIT 

/. FOUND 

/not Found 

/decrement decimal exponent 

/IF AFTER . 



/MULTIPLY FLAC dY 1/, 
/ADD NEW DIGIT 



/CHECK FOR OVERFLOW 



/NO OVERFLOW 
/OVERFLOW, ROTATE RIGHT 
/SET UP RETURN TO OVCHEK 
/ROTATE REMAIN 



/ROTATE REST OF FlAC 
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2205 

2206 
2207 
2208 
2209 
2210 
2211 
2212 
2213 
2214 
2215 
2216 
2217 
2218 
2219 
2220 
2221 
2222 
2223 
2224 
2225 
2226 
2227 
2228 
2229 
2230 
2231 
2232 
2233 
2234 
2235 
2236 
2237 
2238 
2239 
2240 



5650 
5651 
5652 
5653 
5654 
5655 
5656 
5657 
5660 
5661 
5662 
5663 
5664 
5665 
5666 
5667 
5670 
5671 
5672 
5673 
5674 
5675 
5676 
5677 
5700 
5701 
5702 
5703 
5704 
5705 
5706 
5707 
5710 
5711 
5712 



4511 
6145 

5301 
2365 
4450 
1366 
3260 
4407 
7000 
6554 

000(0 

1364 
7450 
5600 
7500 
5273 
7001 
3364 
5277 
7240 
1364 
3364 
1066 
1367 
5256 
4506 
4755 
3040 
4757 
1164 
2040 
7041 
1364 
3364 
5253 



NUTDIG, SORT 
C30 
JMP 

OtfTERM, iSi 
NEGA 
TAD 

DBLOOP, DCA 
FENT 

PSW1T, FNR 
FPT 
FEXT 
TAD 
SNA 
JMP 
SMA 
JMP 
IAC 

dca 

JMP 
CLA 
TAD 
OCA 
TAD 
TAD 
JMP 
EINPUT, GETC 
JMS 
DCA 
JMS 
TAD 
ISi 
CIA 
TAD 
DCA 
JMP 



C 

5-1 

E INPUT 

INSIGN 

TE 

CFNR 

• ♦2 



I PT1 

DECEXP 

I D8C0NV 

.♦4 

OECEXP 

.♦5 

CMA 

DECEXP 

DECEXP 

M3 

FLINST 

DBLOOP 

I SGNTST 

FLOPP 

I DECIN1 

DECNUM 

FLOP0 

DECEXP 
DECEXP 
DBTEPM 



/TEST FOR LETTER E 

/FOUND E 

/END OF INPUT, AFFIX SIGN 

/SET UP TO NORMALIZE 



/OR FMY BY 10 OR .10 
/SAVF RESULT 

/CHECK DECIMAL EXPONENT 

/OONF 

/NEGATIVE, SET UP TO FMY BY .10 

/POSITIVE. SET UP TO FMY flY 10 

/INSTRUCTION FMY FLTEN OP FLPTEN 

/FOUND W E W 
/TEST FOR SJGN 

/INPUT A DECIMAL INTEGER 

/CHECK SIGN 
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2241 






/ADD FLOP TO FLAT TRIPLE PRECISION KITH OVERFLOW 




2242 


5713 


9)000 


TRPLAO, 











2243 


5714 


7300 




CLA 


CLL 






2244 


5715 


1043 




TAD 


FLOP3 






2245 


5716 


1047 




TAf) 


FLAC3 






2246 


5717 


3047 




OCA 


FLAC3 






2247 


5720 


7004 




HAL 








2248 


5721 


1042 




TAt) 


FLOP? 






2249 


5722 


1046 




TAD 


FLAC? 






2250 


5723 


3046 




DCA 


FLAC? 






2251 


5724 


7004 




RAL 








2252 


5725 


1041 




TAD 


FLOPl 






2253 


5726 


1045 




TAD 


FLAC1 






2254 


5727 


3045 




OCA 


FLAC1 






2255 


^730 


7004 




RAL 








2256 


5731 


1162 




TAD 


REMAIN 






2257 


5732 


3162 




OCA 


REMAIN 






2258 


5733 


5713 




JMP 


I TRPLAO 






2259 






/MULTIPLY FLAC BY 2 






2260 


5734 


0000 


MULT?, 











2261 


5735 


4756 




JMS 


I MULT2I 






2262 


5736 


1162 




TAD 


REMAIN 






2263 


5737 


7004 




RAL 








2264 


5740 


3162 




DCA 


REMAIN 






2265 


5741 


5734 




JMP 


I MULT2 






2266 






/MULTIPLY FLAC BY 10 






2267 


5742 


0000 


MULTltf, 











2268 


5743 


4 50 4 




PUSHF 


/FLAC=>FLOP 




2269 


5744 


0045 




FLAC1 






2270 


5745 


4505 




POPF 








2271 


5746 


0041 




FLOP1 






2272 


5747 


3162 




OCA 


REMAIN 


/CLEAR OVERFLOW 




22 73 


5750 


4334 




JMS 


MULT2 


/FLAC«10 a <FLAC»2*2*FLAC)*2 




2274 


5751 


4334 




JMS 


MULT2 






2275 


5752 


4313 




JMS 


TRPLAO 






2276 


5753 


4334 




JMS 


MULT? 






2277 


5754 


5742 




JMP 


I MULT10 






2278 


5755 


6030 


SUNTST, 


TSTSGN 






2279 


5756 


7037 


MULT? I* 


RALAC 






2280 


5757 


6010 


OtCINl. 


DECINT 






22*1 


5760 


7251 


IKAKAC, 


RARAC 






2282 


5761 


5633 


TOVWL, 


OVCHEK 






2283 


5762 


7256 


RUTRAC, 


RARAC+5 






2284 


5763 


0043 


C43, 


43 








2265 


5764 


0000 


OtCEXP. 





/IMPLICIT DECIMAL EXPONENT 




2266 


5765 


0000 


INS1GN, 





/SIGN OF 


MANTISSA 




2287 


5766 


7000 


CFNK* 


FNR 








>»28 6 


5767 


3373 


FLINST, 


FMY 


.♦4 






2289 


5770 


0004 


F L 1 E> » 


0004 


\ /1&H0) 


FLOATING 




2290 


5771 


?nwb 




i.*»k,k. 








>29l 


t'il'c 


?P*0 




??r* 9 


i 






W c 


577? 


7775 


riPTFN, 


7775 


► / . 1 ( 1 ) 


FLOATING 




'293 


5774 


3146 




314£ 


\ 






-294 


5775 


3147 




3147 








'295 




0162 


RLMA l!M = 


TFMP1 











FOCAL, 
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2296 






2297 


5776 


0215 


2298 


5777 


0214 


2299 


6000 


0337 


2300 


6001 


02^>4 


2301 


6002 


0k)tf0 


2302 


6003 


0212 
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/CHARACIER LIST FOR -ASK- 

ASKLST, ?15 /CR 

?14 /FF 

337- /HA 

?54 * /COMMA 

USERT. /USER-SELECTFU CHARACTFH 

?12 /Lf 
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n::<a 



d A f ; t 6 rt 



2303 

2304 
2305 
2306 
2307 
2308 
2309 
2310 
2311 
2312 
2313 
2314 
2315 
2316 
2317 
2316 
2319 
2320 
2321 
2322 
2323 
2324 
2325 
2326 
2327 
2328 
2329 
2330 
2331 
2332 
2333 
2334 
2335 
2336 
2337 



6004 
6005 
6006 
6007 

6010 
6011 
6B12 
6013 
6014 
6015 
6016 
6017 
6020 
6021 
6022 
6023 
6024 
6025 
6026 
6027 



6030 
6031 
6032 
6033 
6034 
6035 
6036 
6037 
6040 
6041 



6030 
7634 
7766 
7777 

0*500 
3164 
4522 
7000 
5ol0 
450{? 
1164 
7106 
7530 
5226 
1164 
70W4 
1127 
7530 
4526 
5211 
0164 

4521 
3127 
4511 
6114 
4506 
4521 
7240 
1127 
5630 
0163 



/POWFN OF 1k5 TAd! L 
INTARL, -1750 /10*)0 

-144 /1W0 

-12 /10 

-1 /l 
/INPUT A DFCIMAL INTEGER <2048 



UtCIM , 





OCA Pfc.C»\jlM 

TESTN 

NOP 

JHP I ULCINT 

GLTC 

TAO IUCimUM 

RTL 

S/L 

.♦5 

DtCtMUM 



CLL 
SPA 
JMP 
TA!) 
HAL 
TAO 
SPA 



SONTTN 
S*L 

FHPOR 

JHP DECINT+1 
fl£CNUM=lEMP3 
/ftbT FUR A SIGN 
TSTSGN, 

SPNOR 

OCA SURTCiM 

SONTC 
SNLIST-1 

GETC 

SPNOR 

CLA CMA 

TAD SORTCN 

JHP I TSTSGN 
DlGIT=TtMP2 



/GET A OIGIT 

/NONE FOUND 

/MULTIPLY PREV, a RY lw 

/OVERFLOW O2047) 

/ADO NEW OIGIT 



/LOOK FOR ♦ OR - 



/SIG* 
/NOT 



FOUND 
FOUND 



/SORTCN: = *, 1=- 
/AC: 7777=*. 0=- 
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2336 
2339 
2340 
2341 
2342 
2343 
2344 
2345 
2346 
2347 
2348 
2349 
2330 
2351 
2352 
2353 
2354 
2355 
2356 
2357 
2358 
2359 
2360 
2361 
2362 
2363 
2364 
2365 
2366 
2367 
2368 
2369 
237» 
2371 
2372 
2373 
2374 
2375 
2376 
2377 
2378 
2379 
2380 
2361 
2382 
2383 
23»4 
2385 
2366 



6042 
6043 
6044 
6045 
6046 
6047 
6050 
6051 
6052 
6053 
6054 
6055 
6056 
6057 
6060 
6061 
6062 
6063 
6064 
6065 
6066 
6067 
6070 
6071 
6072 
6073 
6074 
6075 
6076 
6077 

6100 
6101 
6102 
6103 
6104 
6105 
6106 
6107 
6110 
6111 
6112 
6113 
6114 

6115 
6116 



0000 
3164 
1314 
3260 
3210 
4255 
4255 
2210 
4255 
4255 
5642 

0000 

3163 
1164 
1204 
7510 
5267 
3164 
2163 
2210 
5257 
7300 
2260 
1210 
7650 
5655 
1163 
1036 
4512 
5655 

0000 
3164 
1164 
7710 
1035 
1315 
4512 
1164 
7510 
7041 
4242 
5700 
1204 
6115 
0253 
0255 



/PRINT 
/FIRST 
INTOUT 



INTUO, 
INTSUBi 

INTNEG, 



/yUTPUl 
SlGOUTi 



A 2-4 DIGIT UNSIGNED DECIMAL INTEGER 
2 LEADING HEROES NOT PRINTED 
. 

OCA DECNilM 

TAD INTHTR 

DCA INTSUH 

f)CA OEC1NT 

JMS INTUD 

JMS INTOO 

ISH DECINT 

JMS INTOO 

JMS INTOO 

JMP I INTOUT 



DCA DIGIT 

TAD DECNUM 

► TAD INTAPL 
SPA 

JMP INTNEG 
DCA DECNUM 
IS2 DIGIT 
IS? DECINT 
JMP INTSUB-1 

► CLA CLL 
IS2 INTSUB 
TAD DECINT 
SNA CLA 
JMP I INTUO 
TAD DIGIT 
TAD C260 
PRINTC 
JMP I INTOO 

r A SIGNED INTEGER IN AC 
. 

/SAVE NUMBER 



/POWER OF 10 POINTER 

/OEC!NTr0 MEANS SKIP OUTPUT 
/1ST DIGIT (1000S) 
/2ND DIGIT <100S) 
/OECINT>0 MEANS PRINT 0S 
/3RO OIGIT <t«S> 
/4TH OIGIT (UNITS) 



/INITIALISE 

/SUBTRACT A POWER OF 10 



/POSITIVE RESULT 

/NON2ERO OIGIT, SO IGNORE NO 

/FURTHER HEROES 

/NEGATIVE RESULT 

/SFT UP NEXT POWER OF lid 

/IS IT A LEAOING 0? 

/YES, SKIP |T 
/NO, PRINT OIGIT 



/MAKE 
/MAKE 



INTPTR. 
S*LIST= 
C253. 



DCA DECNUM 

TAD DECNUM 

SPA CLA 

TAD P2 

TAD C253 

PRINTC 

TAD OECNUM 

SPA 

CIA 

JMS INTOUT 

JMP I SIGOUT 

TAD INTARL 

/FOR SIGN TESTING 
253 /♦ 
255 /- 



/OUTPUT ABSOLUTE VALUE 



/OUTPUT THE NUMBFR 



2387 
2383 
2369 
2390 
2391 
2392 
2393 
2394 
2395 
2396 
2397 
?39d 
2399 
24*0 
?401 
24*12 
2403 
2404 
2405 
24 06 
2407 
2408 
2409 
2410 
2411 
2412 
2413 
2414 
2415 
2416 
2417 
2418 
2419 
2420 
2421 
2422 
2423 
2424 
2425 
2426 
2427 
2428 
2429 
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6117 
6120 
6121 
6122 
6123 
6124 
6125 
6126 
6127 
6130 
6131 
6132 
6133 
6134 
6135 
6136 
ol37 
6140 

6141 
6142 
6143 
6144 
6145 
6146 
6147 
6150 

6151 
6152 
6153 
6154 
6155 
6156 
6157 
6160 
6161 
6162 
6163 
6164 
6165 
6166 



7200 
1051 
7410 
1133 
7041 
7450 
1347 
3164 
11622 
4512 
1412 
2157 
5336 
7240 
3157 
4750 
7410 
5331 

1346 
4512 
1156 

43H0 
5770 
0305 
7772 
6437 

0000 
1143 
4520 
0071 
4242 
1022 
4512 
1143 
0026 
4242 
1033 
3142 
4512 
5751 



XXX, 



FLOUT, 



FLOIG, 



CLA 

TAD TOTD1G 

SKP 

TAO OECP 

CIA 

SNA 

TAO MUIG 

DCA DECNUM 

TAD PER 

PHINTC 

TAD I XKT2 

IS? T2 

JMP ,*3 

CLA CMA 

OCA T2 

JMS I OUTP 

SKP 

JMP FLDIG 
/tf-U COMV EXPONENT OUTPUT 

TAD C305 

PRINTC 

TAD Tl 

JMS SIGOUT 
fiuENOt JMP I 8DC0NV 
C30b» 305 
MUIGp -DIGITS 
OUTP, OUTA 
/PRINT A LINE NUMtiFR 
XPRNTL, 

TAD LINENO 

RTL6 

AND P77 

JMS INTODT 

TAO PER 

PRINTC 

TAD LINENO 

AND P177 

JMS INTOUT 

TAD C240 

OCA CHAR 

PRINTC 

JMP I XPRNTL 



11:38 PAGE 62 
/CONVERT TO E FORMAT ON OVERFLOW 
/E FORMAT <%0> FLOATING OUTPUT 



/6 DIGITS IF GIVEN 
/DIGIT COUNTER 
/PFRIUO 

/NEXT DIGIT 

/OUT OF SIG DIGITS? 

/NO, PRINT DIGIT 

/YFS, RESET POINTER AND PRINT 



/FIELD NOW FILLED. PRINT EXPONENT 

T 

/PRINT LETTER E 

/OUTPUT THE EXPONENT 

/DONE 
/E 

"PRNTLN" 

/2-DIGIT PART NUMBER 

/DECIMAL POINT 

/2-OIGIT STEP NUMBER 
/SPACE 



FOCAL. 5/69 «*«•»•*«» 



PALI? 



V141 



6-JUL-70 



11:38 



^A>~,L 63 



2430 
2431 
2432 
2433 
2434 
2435 
2436 
2437 
2438 
2439 
24413 
2441 
2442 
2443 
2444 
2445 
2446 
2447 
2448 
2449 
2450 
2451 
2452 
2453 
2454 
2455 
2456 
2457 
2458 
2459 
2460 
2461 
2462 
2463 
2464 
2465 
2466 
2467 
2468 
2469 
247» 
2471 
2472 
2473 
2474 
2475 
2476 
2477 
2478 
2479 



6167 0015 



6170 
6171 
6172 
6173 
6174 
6175 
6176 
6177 
6200 
6201 
6202 
6203 
6204 
6205 
6206 
6207 
6210 
6211 
6212 
6213 
6214 
6215 
6216 
6217 
6220 
6221 
6222 
6223 
6224 

6225 
6226 
6227 
6230 

6231 
6232 
*233 
6234 
6235 
6236 
6237 

6240 
6241 
6242 
6243 



0000 
1045 
7 700 
5376 
4450 
1367 
1033 
4512 
7240 
1044 
3044 
3156 
1044 
7500 
5220 
1631 
7700 
5244 
4407 
3631 
0000 
7240 
1156 
5203 
4407 
3632 
(9000 
7001 
5216 

7771 
7772 

0007 
7766 

5770 
5773 
5734 
5742 
7544 
6122 
6117 

7040 
1040 
3040 
5351 



NLGSGN, 

/HlNAhY 
HDCONV, 



8USCAL 



SUOWN. 



/CONSTA 

OCOUNT, 

MDlGiT, 

RND2. 

M*2; 

/POINTE 

HNPT, 

PTENPT, 

MULT2P* 

MUL1FP. 

8UFST, 

FLOUTP, 

XXXP, 

/KOUTIN 

OtCfc 



255-240 

TO DECIMAL CONVERSION AND OUTPUT 


TAD FLAC1 /CHECK SIGN 
SMA CLA 
JMP ,*3 
NEGATE 
TAU NEGSGN 
TAD C24k) 
PRINTC 
CLA CMA 
TAD FLAC0 
DCA FLAC0 
OCA Tl 
TAD FLAC0 
SHA 

JMP SOOWN 
TAD I TE^PT 
SMA CLA 
JMP SCALFO 
FENT 

FMY I TENPT 
FEXT 
CLA CMA 
TAD Tl 
JMP PUSCAL 
FENT 

FMY I PTENPT 
FEXT 
IAC 

JMP .-6 
NTS 
-DIGITS-i 
-DIGITS 
DIGITS*! 
-12 

as 

FLTEN 
FLPTEN 
MULT2 
MULT10 
OIGBUF-1 
FLOUT 
XXX 
L TO OECKEMENT THF OIGIT POINTEP 
CMA 
TAD FLOP? 
DCA FLOP0 
JMP PET 



/NEGATIVE. TAKF A8S0LUU VALUE 
/MAKE A - 
/MAKF A SPACE 

/DECREMENT BINARY EXPONENT 



/INITIALISE DECIMAL EXPONENT 
/START SCALING: -4<EXP<^? 

/TOO BIG, SCALE DOWN 



/WITHIN LIMITS, DONE 
/TOO SMALL, SCALE UP 



/DFCPEMENT DECIMAL EXPONENT 
/SCALE DOWN 

/INCREMENT DECIMAL EXPONFNT 



/«««*«• FOCAL. 5/69 **e«6**»* PALI* 



VI 41 



6-JUL-70 



1 1 : 6 b 



PAGE b4 



24tt0 

2461 

24b2 

2463 

2464 

2465 

24*6 

2467 

?4Btt 

24*9 

2 4 90 

2491 

2492 

2493 

2494 

2495 

2496 

2497 

2498 

2499 

2500 

2501 

2502 

2503 

2504 

2505 

2506 

2507 

2506 

2509 

2510 

2511 

2512 

2513 

2514 

2515 

2516 

2517 

2518 v 

2519 

2528 

2521 

2522 

2523 

2524 

2525 

2526 

2527 

252b 

2529 

2530 

2531 

2532 

2533 

2534 



/FINISHED SCALING. GENERATE "IGITS 



6244 
6245 
6246 
6?47 
6250 
fc251 
6252 
*253 
6254 
6255 
6256 
6257 
6260 
6261 
6262 
6263 
6264 
6265 
6266 
6267 
6270 
6271 
6272 
6273 
6274 
6275 
6276 
6277 
6300 
6301 
6302 
6303 
6304 
6305 
6306 
63*7 
6310 
6311 
6312 
6313 
6314 
6315 
6316 
6317 
6320 
6321 
6322 
6323 
6324 
6325 
6326 
6327 
6330 
6331 



4633 
1235 
3012 
4634 
1162 
5266 
7110 
3004 
1045 
7010 
3045 
1046 
7010 
3046 
1047 
7010 
3047 
10f>4 
2044 
5252 
7440 
5301 
7240 
1156 
3156 
1045 
7650 
3156 
7410 
3412 
1225 
3044 
4634 
1162 
3412 
2044 
5304 
1235 
3012 
1225 
3157 
1051 
7450 
5340 
7041 
1133 
7550 
5327 
7200 
1051 
3133 
1156 
75*0 
72*0 



SCALFU. 



sac*, 



BJCl, 



BUC2* 



JMS I MU| T2H 

TAD HUE ST 

OCA *kT2 

JMS I Hul 1PP 

TAU RE^Af*. 

JMP PDCl 

CLL RAP 

D C A F t\ L G S w 

TAU ELAC1 

RAP 

OCA FLACl 

TAD FLAG? 

HAP 

OCA FLAG? 

TAD FLAC3 

PAP 

OCA FLAG? 

TAD FjMLGSW 

I S^ FLACfr' 

JMP fc'UCtf 

S2A 

JMP HUC2 

CLA CMA 

TAD Tl 

DCA Tl 

TAP FLAG1 

SNA CLA 

OCA Tl 

SKP 

UCA I XPT2 

TAD DCOUNT 

OCA FLAG? 

JMS I MULlflP 

TAU REMAIN 

OCA I XPT2 

IS* FLAG0 

JMP .-4 

TAU RUFST 

DCA XHT2 

TAD DCOUNT 

DCA T2 

TAD TOTulb 

SNA 

JMP P6 

CIA 

TAD DECP 

SPA SNA 

JMP ,*4 

CLA 

TAD TUTuIG 

DCA DECP 

TAD Tl 

SMA 

CLA 



/POTATF FLAG LFFT 
/INITIALISE DIGIT PUFFER 

/MULTIPLY PY IP! 
/UVEkFI OW 



/TEMP STORAGE OF FIRST uIGIT 
/RHTaTF FLAG RIGHT 



/PPLV. OVERFLOW 
/CHECK ROTATF COUNT 



/FIRST UIGIT IS 0, IGfcOnP 
/DECPE*EN>T UFCIMAL EXP'Uf-NT 



/LXP=0 IF MANTISSA=0 

/FIRST DIGIT WAS NOT 
/SET TO COUNT DIGITS 

/MULTIPLY BY 1ft 

/SAVE DIGIT JUST GENERATED 

/REINITIALIZE POINTER 

/DIGITS AVAILARLE 

/DIGITS WANTED 

/E FORMAT. ROUND TO 6 PLAGES 
/COMPUTE FIELD SI2ES 



/COMPARE DECP TO TOTD1G 
/MORE DECP THAN TOTAL DIGITS! 



/COMPARE EXPONFNT TO FIELD SI*h 

/iniegfk fiei d >= expu t r 



/*«***» FQCAL , 5/69 ««»««»««« 



PALlfl 
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11138 PAGE 64-1 



2535 6332 1051 TAt* TOTOIG 

2536 6333 7510 SPA 

2537 6334 5362 JMP FPRNT-2 
253tt 6335 1226 TAD MDIGIT 
253V 6336 7500 SMA 

254d 6337 72*0 CLA 

2541 6340 1227 R6. TAD KN02 

2542 6341 3*604 DCA F NFGSH 

2543 6342 1235 TAD PUFST 

2544 6343 10*4 TAD F NEGSW 

2545 6344 3040 HCA FLOP? 

2546 6345 1004 TAD FNEGSw 

2547 6346 7041 CIA 

254d 6347 3004 DCA FNFGSH 

2549 5350 1631 TAD I TEMPT 

255*) 6351 2440 RET, IS? I FLOPfl 

2551 6352 1440 TAD I FlOHA 

2552 6353 1230 TAD M12 

2553 6354 7710 SPA CLA 

2554 6355 5364 JMP FPRNT 

2555 6356 3440 OCA I FLOPfl 

2556 6357 2004 IS? FNEGSW 

2557 6360 5240 JHP OECR 
255d 6361 2440 IS? I FLOPS 

2559 6362 2156 ISZ Tl 

2560 6363 72^0 CLA 



/NO ROUNDING NFEOED 
/ROUND TO DECP+EXP PLACES 



/START ROUNDING 
/PLACES TO ROUND TO 
/ROUNDING START ADDRESS 
/SET UP ROUND COUNT 



/START ROUNDING PROCESS PY 
/ADDING 4 TO FIRST DIGIT 
/INCREMENT CURRENT DIGIT 



/DIGIT>9? 

/NO, END ROUNDING 

/YES, SET OIGIT TO AND CARRY 

/BFGINNING OF PUFFER? 

/NO DECREMENT PUFFF.R ADDRESS 

/YES. FAKE CARRY FROM FIRST DIGIT 



/««•«*« FOCAL, 5/69 *•»•**«♦» PALlf* V141 6-JUL-70 1U38 PAGE 65 

FPRNT, TAD TOTlHG /SET UP FIELD SI2ES 
SNA 

JMP I FLOUTP /E FORMAT OUTPUT 
CIA 

OCA DtCNUM /NUMREP OF PLACES T(J PRINT 
TAD DECNUM 
TAD Tl 
SMA S*A 

JMP I XXXP /TOO BIG, PRINT F FORMAT 
TAD DECP /UK, TFST DECIMAL PLACEb 
SMA 

CLA /ADJUST DECIMAL POINT 

CIA 

TAD Tl 
CLL CIA 

OCA FNEGSW /NUMRER OF INTEGER PLACES 
SZL 
JMP IN+4 /NO INTEGER PLACES 



25)61 






2562 


6364 


1*051 


2563 


6365 


7450 


2564 


f>366 


5636 


2565 


6367 


7041 


25t>6 


6370 


3164 


2567 


6371 


1164 


25f>6 


6372 


1156 


2569 


*373 


7540 


25 7/) 


6374 


5637 


25 71 


6375 


1133 


2572 


6376 


7500 


25/3 


6377 


7200 


2574 


64*0 


7041 


2575 


6401 


1156 


2576 


o402 


7141 


2577 


b4W3 


30^4 


25 76 


6 4 W4 


7430 


2579 


64F-5 


5222 



/««««*• FOCAL* 5/69 *«*»s»a«* PALI^ V141 6-JUL-7t 11:38 panL t>(~ 

25B0 /START PRINTING 

25*1 64l"6 1156 HACK, TAD Tl 

2582 6407 101*4 TAD FNEGSw 

2583 641k) 7656 SNA -CLA 

2564 Mil 5225 JMP DIG /PRIM A DIGIT 

256<5 6412* J0H4 TAD FNtGS* 

2566 6413 7^i ! l I AC 

2587 6414 77ltf SPA CLA /PRINT y, IF ONF. IiMThGtf f1 LACF Lfc.FI 

2568 6415 1425 TAD M2M /OTHFHMSt A SPaOE 

2569 6416 4237 In, JMS OuTa /PRIM A CHARACTFR 
?59rt 6417 5645 JMP ! HuFnOP /FIELD FILLED, EXIT 

2591 642k) ?*»04 I Szf F'NEGSrt 

2592 6421 524*6 JMP PACK /CONTINUF 

2593 6422 lk)22 TAD PER /DFCIMAL POINT 

2594 6423 4512 PRINTC 

2595 6424 52^6 JMP PACK 

2596 6425 7040 DIG, CMA 

2597 6426 1156 TAD Tl /UFCHEPLM DFCIMAL fcXPu»iFM 
2596 6427 3156 DCA Tl 

2599 6430 2157 IS/ T2 /CHECK SIG DIGIT COuM 

2600 6431 5235 JMP .+4 /SOMF LEFT 

2601 6432 7040 CMA /ALL USED UP 

2602 6433 3157 DCA T2 

2603 6434 5216 JMP In /PRIM A u 

2604 6435 1412 TAD I XRT2 /PRINT A SIG DIGIT 

2605 6436 5216 JMP I \\ 

2606 /UIGII PRINT ROUTINE FOR bDCONV 

2607 6437 00iik? OuTa, fl 

260d 6440 1036 TAD C260 /CONVERT TO ASCII 

2609 6441 4512 PR1MC 

2610 6442 2164 IS? DEC-NU.1 /FIELD FILLED? 

2611 6443 2237 IS/ OUTA /NO, GO TO SECOND RETURN 

2612 6444 5637 JMP I OUTa 

2613 6445 6145 BUFNDP, PDEND 



/•*•«•« FQCAL» 5/6V ««*•***«* 



PALlt* 
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f'Ai.L 6 7 



2614 
2615 
2616 
2617 
2614 
2619 
2620 
2621 
2622 
262,5 
2624 
2625 
2626 
2627 
2628 
2629 
263*4 
2631 
2632 
2633 
2634 
2635 
2636 
2637 
263b 
2639 
2640 
2641 
2642 
2643 
2644 
2645 
2646 
2647 
2646 
2649 
2650 
2651 
2652 
2653 
2654 
2655 
2656 
2657 
2658 
2659 
2660 
2661 
2662 



M46 
6447 
6450 
6451 
6452 

6453 
6454 
6455 
6456 
6457 
6460 

6461 
6462 
6463 
6464 
6465 



6466 
6467 
6470 
6471 
M72 
6473 
6474 
6475 
6476 
6477 
65*0 
6501 
6502 
6503 
6504 
65*55 

65^6 
6507 
6518) 
6511 
6512 
6513 
6514 
6515 
6516 



4521 
4510 
2377 
7574 

4526 

7240 
3037 
6014 
1317 
1161 
3113 

4565 
5261 
5665 
524o 
0616 



0000 
1067 
3156 
3157 
60^-1 
1037 
77*0 
5306 
2157 
5272 
2156 
5272 
1161 
3113 
1054 
5315 

7040 
3037 
6016 
0026 
7450 
5267 
1015 
3142 
5666 



/ "OPT I UN" PROCESSON 
OPTinr*, 



SPMJP 
SOWTJ 



/GET OPT ION LLTTFk 



OPTLST 
PRTTPL 



ERROR 



///// 

OPTk, 



///// 

MPTrfFTi 



CLA PhA 

OCA HlNnt'F 

RFC 

TAD PEST" 

TAP PTCri 

OCA 113 

TSTEPM 
JMP .-1 

JhP I .♦? 
JMP oh r ION 

PHOC 



-1 

•OPTLST 

/ILLEGAL OPTUr- KA'n. 

/Swap input To high spf t 



.4LiF. r 



///// 

HkFaI), 



SPEEl 




HRFAP2. 



///// 

MSGO# 



/START KFAPLR 

/HOI^'T in "HREaj" 

/SWAP TO KFY«OAKP H C^LlK 1 "t^t 



/hovf 10 »;cp 

/lno of options 

/continue processing uftto-ms 



INPUT ROOTIn^ 

/SET OP PLAO TIMER 



6517 4003 



///// 
RtSTR, 



TAP *5 
PC A Tl 
OCA T2 

ION 

TAP PlNtrtHF 
SMA CLA 
JMP HSGO 
IS/ T2 
JMP HNEAP2 
IS? 1 Tl 
JMP HRFAP2 
TAP PTCH 
OCA 113 
TAP P337 
JMP PLSTR-2 

CMA 

OCA HlNbUF 

RRP RFC 

A NO Pi 7 7 

SNA 

JMP HkEaP+1 

TAP C20W 

DCA CHAH 

JMP I HKFAD 

HREAFj-CHIN 



/(SWAP) - FOR 2-0:5? k 
/WAIT FUW iNPOr 

/CHARACTFR REAny 

/ i-i T YF1 , CHECK T Imj- R 



/TIME'S MP, OUT OF JAPt 

/SWAP TO KFYHOAKP I mPOT 

/RFTURKi A P. A. TO KILL U't''uF.) LImL 

/OR SPURIOUS CHARACTER 

/FOUN'O CHARACTER 
/SET TO READ NEXT 

/IGNORE PARITY ANO hLA-.-K 



/««*««» focal* 5/69 ««*«««•»« palia vi4i 
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2663 
2664 
2665 
2666 
2667 
2666 
2669 
2670 
2671 
2672 
2673 
2674 
2675 
2676 
2677 
267Q 
2679 
2660 
266*1 
26«2 
2663 
2664 
2665 
2666 
2667 
2666 
2669 
2690 
2691 
2692 
2693 
2694 
2695 
2696 
2697 
2698 
2699 
2700 
2701 
2702 
2703 
2704 
2705 



66^0 
6601 
6602 
6603 
6604 
6605 
6606 
6607 
6610 
6611 
6612 
6613 
6614 
6615 
6616 
6617 
6620 
6621 
6622 
6623 
6624 
6625 
6626 
6627 
6630 
6631 
6632 
6633 
6634 
6635 
6636 
6637 
6640 
6641 
6642 
6643 
6644 
6645 
6646 



66tf0 



0000 
7300 
1600 
7450 
5600 
0015 
7640 
1200 
0024 
3231 
1600 
0026 
1231 
3231 
1600 
2200 
7106 
7006 
0031 
1236 
3235 
1631 
7430 
3231 
4504 
0000 

4505 
0040 
3043 
5637 
5637 
7406 
6720 
6717 
7077 
7171 
6647 
6653 
6762 



PAGt 

/►LOATING POINT PACKAGE 

/ARITHMETIC INTERPRETER 



FPNTi 





CLA CLL 

TAU I FPNT 



SNA 

JMP I FPtMT 
AND C200 
S?A CLA 
TAD FPNT 
AND P7600 
DCA FLADDH 
TAD I FPNT 
AND P177 
TAD FLAODR 
DCA FLADDH 
TAD I FPNT 
IS? FPNT 
CLL RTL 
RTL 

AND P17 
TAD DRECTR 
DCA DIRECT 
TAD I FLAODR 
SHL 

DCA FLAUDR 
PUSHF 

FLADDR, 

POPF 

FLOP 
OCA FLOP3 

DIRECT* JMP I .♦? 

DRECTR, JMP I .♦! 
FLPOW 
FLAUD 
FLSUR 
FLMUL 
FLDIV 
FLGET 
FLPUT 
FLNOR 



/FLOATING INSTRUCTION 

/FEXT 

/GET PAGE BIT 

/CURRENT PAGE 

/START ADDRESS OF ADDRESSED PAGE 
/GET ADDRESS BITS 



/FULL 12-BIT ADDRESS 

/OP BITS =>AC9-11 
/INDIRECT BIT =>LINK 

/SET UP OP POINTER 

/INDIRECT? 

/YFS 

/NO. GET OPERAND 



/CLEAR LOW ORDER OPERAND 
/OP DIRECT INSTRUCTION 
/OP TABLE 



/»•»#♦* FOCAL, 5/69 ««*•***« 



PALI'' 



V141 



6-JUL-70 



ll'.3B PAGt 6^ 



2706 






2707 


6647 


4504 


2706 


6650 


0040 


2709 


6651 


1254 


2710 


6652 


5256 


2711 


6653 


4 5 tt 1 


271? 


6654 


0/J44 


2713 


6655 


J231 


2714 


6656 


3260 


2715 


6657 


4 505 


2716 


6660 


fcl k'» 


2717 


6661 


5201 


2716 


6662 


0000 


2719 


6663 


1042 


2720 


6 66 4 


7141 


2721 


666 5 


30*2 


2722 


6666 


7024 


2723 


^667 


1041 


2724 


otilA 


7041 


2725 


6671 


3041 


2726 


6672 


1 4 


2727 


6673 


7140 


2728 


6674 


3004 


2729 


667^> 


5662 


2730 


6676 


00 


2731 


6677 


7300 


2732 


6700 


1047 


2733 


6 7 01 


7041 


2734 


6702 


304 7 


2735 


6703 


7024 


2736 


6701 


1046 


2737 


o705 


7041 


2736 


6706 


3046 


2739 


6707 


7024 


2740 


6710 


1 w45 


2741 


6711 


7041 


2742 


6712 


3045 


2743 


6713 


J wftM 


2744 


6714 


7140 


2745 


6715 


300 4 


2746 


6716 


5676 



FLGET. 



FLPUT, 



NtliUPt 



PUSHF 


FLOP 


TAD 


.♦3 


JMH 


.♦4 


PUSHF 


H AC 


T A H 


FLAuHh 


OCA 


.+2 


PGHF 







JMP 


FP'XUl 







TAD 


FLOP? 


CLL 


CIA 


DCA 


FLOP? 


CML 


PAL 


TAf) 


FLOP* 


CIA 




DCA 


FLOP1 


TAD 


FNEGSw 


CLL 


CMA 


OCA 


FNEGSw 


JMP 


I NtGuP 







CLA 


CLL 


TAU 


FLAC3 


CIA 




DCA 


FLAC3 


CML 


PAL 


TAO 


FLAG? 


CIA 




DCA 


FLAG? 


CML 


RAL 


TAO 


FLAG! 


CIA 




DCA 


FLAG1 


TAU 


FNLGSW 


CLL 


CMA 


dca 


FNEGSw 


JMP 


I NEGAC 



/OP 5: GET FLAC FROM STORAGE 
/SET UP POINTED TO FLAG 
/OP 6: PUT FLAC IN STORAGE 
/SET UP PUINTER TO STORAGE 

/AOOkESS OF STORAGE LOCATION 
/ROUTINE TO NEGATE FLOP 



/FNEGSW IS COMPLEMENTED WHEN 
/FLOP OK FLAC IS NEGATED 



/ROUTINE TO NEGATE FLAC - "NEGATE' 
/TRIPLE PRECISION 



FOCAL. 5/69 *•«•»«•*• PALlfl Vl4l 
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2747 
2748 
2749 
2750 
2751 
2752 
2753 
2754 
2755 
2756 
2757 
2758 
2759 
2760 
2761 
2762 
2763 
2764 
2765 
2766 
2767 
2768 
2769 
2770 
2771 
2772 
2773 
2774 
2775 
2776 
2777 
2778 
2779 
2780 
2781 
2782 
2783 
2784 
2785 
2786 
2787 
2788 
2789 
2790 
2791 
2792 



6717 
6720 
6721 
6722 
6723 
6724 
6725 
6726 
6727 
6730 
6731 
6732 
6733 
6734 
6735 
6736 
6737 
6740 
6741 
6742 
6743 
6744 
6745 
6746 
6747 
6750 
6751 
6752 
6753 
6754 
6755 
6756 
6757 
6760 
6761 
6762 
6763 
6764 
6765 
6766 
6767 
6770 
6771 



4262 
1045 
7650 
5247 
1041 
7650 
52^1 
1040 
7041 
1044 
7450 
5357 
7500 
5346 
1365 
7510 
5247 
1364 
3235 
4767 
2235 
5342 
5357 
7041 
1365 
7510 
52^1 
1364 
3235 
4766 
2235 
5354 
4767 
4766 
4770 
4771 
5201 
7751 
0027 
7271 
7251 
5713 
700b 



/ARITHMETIC OPERATIONS 
/dOTH FLAC AND FlUP MUST 
/♦-«/t (FAO,FSU,FMY,FOV, 
FLSUP, JMS NEGOP 
FLAUD. TAD FLAC1 

SNA CIA 

JMP FLGET . 

TAD FLOP1 

SNA CLA 

JhP FPNT+1 

TAD FLOP0 

CIA 

FLACP 



SmFLOH, 



TAD 
SNA 
JMP 
SMA 
JMP 
TAD 
SPA 
JMP 
TAD 
DCA 
JMS 
IS? 
JMP 
JMP 
CIA 
TAD 
SPA 
JMP 
TAD 
DCA 
JMS 



CMBlNLi 



FLNOR. 

M27. 

P27. 

RARUPli 

RARAC1, 

FLAU3* 

NURF, 



CMBINE 

ShFLOP 
P27 

FLGET 

M27 

DIRECT 

I RAPAC1 

DIRECT 

.-2 

CMbIHE 

P27 

FPNT+1 
M27 

DIRECT 
I RAROP1 



IS? DIRECT 



2 

RAPAC1 

RAPUP1 

FLA03 

NOPF 



JMP 

JMS 

JMS 

JMS 

JMS 

JMP FPNT+1 

*27 

27 

PAROP 

RARAC 

TRPLAD 

FNGRM 



HE NORMALISED FOR 
FXP) 

/OP 2: SUBTRACT OP (NEGATE AND ADD) 
/OP 1 : ADD OP 

/RLSt)LT = OPERANO IF FLACr* 



/HFSULT=FLAC IF FLCP=0 
/COMPARE EXPONFNTS 



/EQUAL. GO ADD TOGETHER 
/NOT EGUAL, NEED SHIFTING 
/FLAOFLOP* SHIFT FLOP 
/FLAC<FLOP, SHIFT FLAG 

/TOO FAR TO SHIFT, TREAT AS IF FI.aC = *. 

/NUMBER OF PLACES To ShI^T 
/SHIFT FLAC 1 TO RIGHT 



/NUMREPS NOW ALIGNED 
/ROUT 1NE TO SHIFT FLOP 



/FLOP TOO SMALL, TREAT AS ;a 
/SHIFT FLOP 1 TO RIGHT 

/NOW SHIFT BOTH TO PREVENT OVERFLOW 

/ADD TRIPLF PRECISION 
/OP H NORMALISE FLaC 





FUCAL, 
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PALl^ 


2*793 






/UlhFCTOm FON 


2794 


6772 


3347 


AbKLS2. 


If^TLPrt 


2795 


6773 


3347 




IfcTEkK 


2796 


6774 


333H 




INtAPfc 


2797 


6775 


334 7 




iMLPM 


?79ts 


6776 


3347 




I h T t h M 


2799 


bill 


3345 




INGT 



V141 



6-JUL-7fci 



11^36 



H'TFHPRITTVF INPUT 
/CP, TLKMINATOP 
/f-F, TLK^lfviATUP 
/mA, kFSTAPT p.-HUT 
/(JOhMA, TfcPMJNATOrt 
/USEW-SPP LTF I bl I ' TERM I M TDK 
/LF, IGNHHF 



««««• 


FOCAL* 


5/69 *«*»»«*»* 


PAL1 


L0 V14 


2800 












2801 




70^0 


MULPLR= 






2602 


7000 


00£0 


FhlORM, 







28 3 


7001 


7340 




CLL 


CLA CMA 


2804 


7002 


3 k. 4 




OCA 


FNEGSw 


280b 


700 3 


1045 




TAD 


FLAC1 


2806 


7004 


7450 




SNA 




2807 


7005 


1046 




TAD 


FLAC2 


2808 


7006 


7450 




SNA 




280V 


7007 


1047 




TAD 


FLAC3 


2810 


7010 


7650 




SNA 


CLA 


2811 


7011 


5232 




JMP 


hOREMU 


2812 


7012 


1045 




TAO 


FLAC1 


2813 


7013 


7710 




SPA 


CLA 


2814 


7014 


4450 




KEG ATI 


2815 


7015 


3255 




DCA 


NOKC 


2616 


7016 


1045 


NKLOOP, 


TAO 


FLAC1 


2617 


7017 


7104 




CLL 


RAL 


2616 


7020 


7710 




SPA 


CLA 


2819 


7021 


5225 




JMP 


NMEXIT 


2820 


7022 


4237 




JMS 


PALAC 


2821 


7023 


2255 




IS? 


NGRC 


2822 


7024 


5216 




JMP 


NKLOOP 


2823 


7025 


2004 


NHFXIT, 


I Si? 


FNLGSW 


2624 


7026 


4450 




NEGATE 


2625 


7027 


1255 




TAD 


NORC 


2626 


7030 


7041 




CIA 




2827 


7031 


1044 




TAU 


FLACP! 


2826 


7032 


30 4 4 


NURENU, 


OCA 


FLACK 


2829 


7033 


3047 




DCA 


FLAC3 


2830 


7034 


56*«0 




JMP 


I FNORM 


2831 


7035 


66fcl 


FLTPT. 


FPNT+1 


2832 


7036 


6662 


NtnoPi. 


NLGOP 


2833 




7037 


PKOU1 =. 






2634 


7037 


000 


RALAC* 







2835 


7040 


1047 




TAO 


FLAC3 


2636 


7041 


7104 




CLL 


RAL 


2837 


7042 


3047 




OCA 


FLAC3 


2838 


7043 


4245 




JMS 


ORAL 


2839 


7044 


5637 




JMP 


I RALAC 


2840 


7045 


0000 


DKALi 







2841 


7046 


1046 




TAO 


FLAC2 


2642 


7047 


70^4 




PAL 




2843 


7050 


3046 




OCA 


FLAC2 


2844 


7051 


1045 




TAO 


FLAC1 


2845 


7052 


7004 




RAL 




2846 


7053 


3045 




OCA 


FLAC1 


2847 


7054 


*>645 




JMP 


I ORAL 


2848 




7055 


NURC=, 







6-JUL-70 
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/ROUTINE TO NORMALIZE FLAC 
/INITIALIZE SIGN SWITCH 

/TEST FOR ZERO 



/£ERO» NO. NEED TO NORMALISE 



/SIGN IS NEGATIVE 
/SHIFT COUNTER 
/SHIFT NFEBEO? 



/NO. BIT 1*1 
/RECORD A SHIFT 
/RESTORE SIGN 
/CORRECT EXPONFNT 

/NORMALIZED # IS 3 WORDS 

/ROUTINE TO ROTATE FLAC 1 Ttj LEFT 

/CALL DOUBLE RAL 

/ROTATE FLAC 1 LEFT, DOUBLE PRtClSluN 



/»»*««» FOCAL, 5/69 »•»«»«««« PAL10 V141 



6-JUL-7to 



11:38 PAGt 73 



2b*9 






/KQUTINL TO 


TEST SIGI 


2850 






/PLACE 


h_ac: 


IN TFMP, 


2651 


7055 


10 W 


FiXSCNi 


. 




2852 


7056 


7340 




CLL 


CLA CMA 


2853 


7057 


3004 




OCA 


FNtbSw 


2b54 


7060 


UJ4 5 




TA!' 


FLAC1 


2b55 


7061 


7450 




SNA 




2856 


7062 


5t>35 




JrtP 


I FLTPT 


2857 


7063 


7710 


SPACLA, 


, SPA 


CLA 


2858 


7064 


44^0 




NEGATE 


26*?9 


7065 


1045 




TAO 


FLAC1 


2860 


7066 


3162 




OCA 


TEMPI 


2861 


7067 


1046 




TAD 


FLAC2 


2862 


7070 


3163 




RCA 


TEMP? 


2863 


7071 


1041 




TAO 


FLUP1 


2664 


7072 


7710 


SbNbWT , 


, SPA 


CLA 


2665 


7073 


4636 




JMS 


I NEGOP1 


2866 


7074 


100 4 




TAG 


FhEGS* 


2867 


7075 


3157 




OCA 


T2 


2868 


7076 


5655 




JHP 


I FIXSGN 



/TEST FLAC 

/IERV>. NO OPERATION NEEDFU 

/1AKF AbS VAL OF FLAC 
/TRANSFER TO TFMP 



/SPA CLA FOR », SMA CLA FOP / 
/TAKE ABS VAL OF FLOP 

/STONE S1G*« OF RESULT 



2669 


FOCAL. 


5/69 < 


2870 


7077 


1263 


2871 


7100 


3272 


2872 


7101 


4255 


2873 


7102 


1042 


2874 


7103 


43,53 


28/5 


7104 


73tn 


2876 


7105 


J044 


2877 


7106 


1 Vi A 


2878 


7107 


3044 


2879 


7110 


1272 


2880 


7111 


3047 


2881 


7112 


1237 


2882 


7113 


3W46 


2883 


7114 


1041 


2884 


7115 


4333 


2885 


7116 


1^47 


2886 


7117 


3047 


2887 


7120 


7004 


2886 


7121 


1272 


2689 


7122 


1046 


2890 


7123 


3046 


2891 


7124 


7004 


2692 


7125 


1237 


2893 


7126 


3045 


2894 


7127 


4 2VU 


2695 


7130 


2157 


2896 


7131 


4 4 50 


2897 


7132 


5635 



PALI** 



V141 



*-JUL-7w 
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PAHL 7 4 



FLMUL" 



TAD SPACt.A 
f)CA SGNS*r 
JMS T1XSCN 
TAP FLOP? 



JMS 
OLA 
TAH 
TAU 
OCA 
TAD 
DC A 
TAD 
OCA 
TAD 



SUMUI. T 

CLL TAG 

FLAC* 

FLOP* 4 

FLAct'- 

PROU? 

FLAU3 

PNOU1 

FLAC? 

FLOPj 

JMS SUMUL r 

TAD FLAC? 

DCA FLAC3 

RAL 

TAD 

TAD 

DCA 

RAL 

TAD 

DCA 

JMS 

IS* 



PROU? 
FLAC? 
FLAC? 



PROui 
FLAC1 
FNOKM 
T2 

NEGATE 

JhP I FLTPT 



/OP 3: MULTIPLY RY ()PE*A*<U 
/WANT POSITIVE OPERAND HERE 



/MULTIPLY (TEMPI TEhP2> "Y l-LOP? 
/IGNDRF LOW ORDER PlSULT 
/ADO EXPONENTS 



/SAVE PARTIAL PESJt TS 

/MULTIPLY (TEMPI TEhP2> -Y f-LUPl 
/COMBINE RESULTS OF MULTIPLICATIONS 



/NORMALISE RESULTS 
/CHECK SIGN OF RFSU|_T 



/««•*•« FOCAL, 5/6^ »«**-=»««* PALlt- 1 VJ.41 *-JUl -70 11 :3k ^A^t. 75 

/UNSIGNLU MULTIPLY *OUT lit. 
/24 ^Y 1? RITS 

/SFT Tn COUNT 12 *Ul T 1 H L ! C * I 1 ii\: 

/NFirf rtl'LT IPLlLf- ^lT IN^O LI i* 

/MULPLH ALSO ACC'IHUlAHS L'U-U^j 
/HFSULTS 

/ADO rtULI IPLIt'P IF hIT = l 



/SHIFT PRODUCT ONt TO »' I M F 



2898 












2899 


7133 


PfcJHtf 


SUMULl . 







2900 


7134 


3200 




PC A 


f U L H L « 


2901 


7135 


3237 




oca 


•PHOU1 


2902 


7136 


3272 




PC A 


PhOU? 


2903 


7137 


137,- 




TAP 


Ml 4 


2904 


7140 


3255 




PC A 


F IXbr. •. 


2 905 


7141 


71 00 




CLL 




2906 


7142 


12010 


Shi upp , 


TAP 


i-HjLPL •< 


2907 


7143 


7010 




R A h 




2908 


7144 


3200 




PC* 


MULPl k 


2909 


7145 


74<0 




SNL 




2910 


7146 


5355 




JhP 


SOSHIFT 


2911 


7147 


7100 




CLL 




2912 


7150 


1163 




TAP 


TLHP? 


2913 


7151 


1272 




TAP 


pKOij? 


2914 


7152 


3272 




PC* 


PriUU? 


2915 


7153 


7004 




KAL 




2916 


7154 


1162 




TAP 


TLMP! 


2917 


7155 


123 7 


SuSHII-T 


;tao 


PKUIJ1 


2918 


7156 


7010 




PAW 




2919 


7157 


3237 




pca 


PHUU3 


2920 


7160 


1272 




TAP 


PHOlj? 


2921 


7161 


7010 




HAK 




2922 


7162 


3272 




nc* 


PhP(j? 


2923 


7163 


2255 




Ibz? 


F 1>SC-M 


2924 


7164 


53*2 




JMP 


SULUPH 


2925 


7165 


120 K 




TAH 


MULPLrt 


2926 


7166 


7wl0 




RAP 




2927 


7167 


5733 




JMP 


I SuMuL 


2928 




7072 


PKOU?=SGNSWT 


2929 


7170 


7764 


M14, 


-14 





/UONf- , LXIT WITH LO*' Obi.^H lr 





focal. 


5/69 *•*»*»»«» 


PAL10 V14 


2930 












2931 


7171 


1041 


fldiv. 


TAD 


FL0P1 


2932 


7172 


7650 




SNA 


CLA 


2933 


7173 


4526 




ERROR 


2934 


7174 


1I&62 




TAO 


P770<* 


2935 


7175 


3272 




nCA 


SGNSfc'T 


2936 


7176 


4255 




JMS 


F1XSGN 


2937 


7177 


1040 




TAD 


FLOPfc 


293d 


7200 


7041 




CIA 




2939 


7201 


1044 




TAD 


FLAC0 


2940 


7202 


7001 




!AC 




2941 


7203 


30^4 




DCA 


FLAC0 


2942 


72^4 


3045 




OCA 


FLAC1 


2943 


7205 


3046 




OCA 


FLAC? 


2944 


7206 


1314 




TAD 


M30 


2945 


7207 


3271 




OCA 


DIVCNT 


2946 


7210 


5226 




JMP 


OVLOOP 


2947 


7211 


7420 


DVStTQ, 


SNL 




2948 


7212 


5216 




JMP 


2EHUU0 


2949 


7213 


3162 




OCA 


TEMPI 


2950 


7214 


1164 




TAD 


TEMP3 


2951 


7215 


3163 




DCA 


TLMP? 


2952 


7216 


7200 


?LRuUU, 


CLA 




2953 


7217 


4647 




JMS 


I DRALP 


2954 


7220 


1163 




TAD 


TLMP? 


2955 


7221 


70*54 




RAL 




2956 


7222 


3163 




OCA 


TEMP? 


2957 


7223 


1162 




TAD 


TEMPI 


2958 


7224 


7004 




HAL 




2959 


7225 


3162 




OCA 


TEMPI 


2960 


7226 


7100 


UVLOOP. 


CLL 




2961 


7227 


1042 




TAD 


FLOP? 


2962 


7230 


1163 




TAD 


TEMP? 


2963 


7231 


3164 




OCA 


TEMP3 


2964 


7232 


7004 




RAL 




2965 


7233 


1041 




TAD 


FL0P1 


2906 


7234 


1162 




TAD 


TEMPI 


2967 


7235 


2271 




ISZ 


DIVCNT 


2968 


7236 


5211 




JMP 


DVSETO 


2969 


7237 


7210 




CLA 


RAR 


2970 


7240 


3047 




DCA 


FLAC3 


2971 


7241 


4650 




JMS 


I NQR2 


2972 


7242 


2157 




IS? 


T2 


29 73 


7243 


5646 




JMP 


I FLOTl 


2974 


72*4 


4450 




MEGATE 


2975 


7245 


5646 




JMP 


I FLOTl 


2976 


7246 


661*1 


FLOTl, 


FPMT+1 


2977 


7247 


7045 


DKALP, 


ORAL 


2978 


7250 


70V»0 


NUK2» 


FNOKM 
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/OP 4: DIVIDE RY OPERAND 

/TRIED TO DIVIDE BY 
/=SMA CLA 



/SUBTRACT EXPONENTS 

/£ERO FLAC FOR QUOTIENT 
/SET COUNTER 

/LINK IS QUOTIFNT BIT 

/RESTORE LOW ORDER RESULT 

/SHIFT RESULT BIT INTO QUOTIENT 
/ROTATE LEFT DOUBLE PRECISION 
/SHIFT DIVIDEND 



/SUBTRACT DIVISOR FKOM DIVIDEND 



/DONE, USE RESULT OF LAST SUBTRACTION 
/AS FXTRA PRECISION 



/RESTORE SIGN 



t « * » • • 


FOCAL, 


5/69 »»«•»*»#«* 


PAL: 


10 V14 


2979 










29b0 


7251 


fr.000 RARAC 







29bl 


7252 


7300 


CLA 


CLL 


29B2 


7253 


1045 


TAD 


FLAC1 


29b3 


7254 


7510 


SPA 




^9b4 


7255 


7020 


CMt. 




29b^ 


7256 


7010 


RAN 




29H6 


7257 


3045 


RCA 


FLAC1 


29b7 


7260 


104o 


TAD 


FLAG? 


2988 


7261 


7010 


RAR 




29b9 


7262 


3046 


DC A 


FLAG? 


2990 


7263 


1047 


TAD 


FLAC3 


2991 


7264 


7010 


RAR 




2992 


7265 


3047 


DCA 


FLAC3 


2993 


7266 


?to44 


IS* 


FLAG? 


2994 


7267 


5651 


JMP 


I RARAC 


2995 


7270 


5651 


JMP 


I RARAC 


2996 




7271 ()1VCNT = 


. 




2997 


7271 


0000 RARUP, 







2996 


7272 


7300 


CLA 


CLL 


2999 


7273 


1041 


TAD 


FLOP1 


3000 


7274 


7510 


SPA 




3001 


7275 


7020 


CHL 




3lM2 


7276 


7010 


RAR 




3 3 


7277 


3041 


OCA 


FLOP1 


,3004 


/300 


1042 


TAD 


FLOP2 


3005 


7301 


7010 


RAR 




3006 


7302 


3042 


DCA 


FLOP? 


31^0 7 


7303 


1043 


TAD 


FL0P3 


3008 


7304 


7010 


RAR 




3009 


7305 


3043 


DCA 


FLOP3 


3k! 10 


7306 


2040 


IS? 


FLOP0 


3011 


7307 


5671 


JMP 


I RAROP 


3012 


7310 


5671 


JMP 


I RAPUP 



6-JUI.-70 11:38 p A(ih 77 

/ROUTINE TO ROTATE FLAG 1 RIGHT 



/PROROGATE SIG* BIT 
/SHIFT 



/ADJUST FXPONENT 



/ROUTINE TO SHIFT FLOP 1 RIGHT 



»«•••• FOCAL# 5/69 «**»»»*«* PAL1M V141 *-JUL-70 11:38 pa«;l 7H 

3013 /ROUTINE TO FIX FLAC - "FIX" 

3014 /REMOVE FRACTIONAL PART £UT LEAVf- FLOATING 

3015 /FIXFb NUMHfcP In AC ON EXIT 

3016 7311 0000 XF IX, 

3017 7312 73v>0 CLA CLL 

3018 7313 1<044 TAP FLAC /TEST EXPONENT 

3019 7314 7750 M30i SPA SNA rLA /IF -1<#<1, CL^AP FnTI»<H Y 

3020 7315 3W44 DCA FLAC /EXCEPT FUR SIGN rHT 

3021 7316 1044 TAP FLAC 

3022 7317 1331 TAU F1XC 

3023 732* 3271 OCA DIVCNT 

3024 7321 7430 S<<L 

.3025 7322 5 711 JMP I XKIX /TOO BIG TO FIX 

302t> 7323 4251 JhS RahaC /FIX BY ROTATING FPaCTK): Al 'Mis 

3027 7324 2271 IS? P1VC*T /OUT OF FLAC 

3020 7325 5323 JMP .-2 

3029 7326 3^47 OCA FLAC+3 /CLEAR FRACTIONAL PARI 

3030 7327 1046 TAP FLAC+2 

3031 7330 5711 JMP I XF I < 

3032 7331 7751 F1XC, -27 

3033 /KOUTINt TO FLOAT C<AC> AS FLOATING PT. iNTtGE* 

3034 /- "FLOAT" 

3035 7332 P00w XELUAT, i* 

3036 7333 3^45 OCA FLACl /SAVE NUMBER 

3037 7334 3046 OCA FLAC? 
303b 7335 3W47 OCA FLAC3 

3039 7336 1005 TAD P13 /INTEGER EXPONENT 

3040 7337 3044 OCA FLACf 

3041 7340 4251 JMS RARAF /IN CASE NUMBER WAS 40'* : 

3042 7341 4650 JMS I N0P2 /NORMALIZE 

3043 7342 5732 JMP I XFIOAT 
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3844 

3045 
3046 

3i:47 
304 b 

3049 
3050 
3051 
3052 
3053 
3054 
3055 
3^56 
3057 
3056 
3059 
3060 
30ol 
3062 
3063 
3064 
3065 
3ir66 
3067 
306b 
3069 
3070 
3071 
3072 
3073 
3074 
3075 
3076 
Sv.77 
3076 
3079 
3080 
30ttl 
3082 



7343 

7344 
7345 
73«6 
7347 
7 354 



7351 
7352 
7353 
7354 
7355 
7356 
7357 
7364 
7361 
7362 
7363 
7364 
736!? 
7366 
7367 
7370 
7371 
7372 
7373 
7374 
7375 
7376 
7377 
7400 
7401 
7402 
7403 
7404 
7405 



7037 
5713 
7774 
4421 

3fcK0 
00V-1 



44f 7 
5346 
00t>0 
4504 
7346 
45v5 
Yii041 
1345 
3156 
4743 
2156 
5362 
4744 
47*3 
4744 
4504 
0045 
4^'5 

7346 
3W47 
3044 
1045 
77*0 
5504 
?046 
7410 
2045 
4450 
5500 



/CURRENT HANDu* mU*BFR 



RFLAC, RALAC 
TFLAO, TRPLAU 
M4. -4 ■ 
HMNUOh. 4421 • 

3040 

00 V 1 
/bTATlSMCAL NAimHum NU*HFR GtMt.nAl'Ok 
/bAi,F.b UN ULCUS S-25. PUi-LR RtSlOUE METHOu 
/NL* H = R*(2*17 + 3) MOO 36 BITS 
^RAN* FE^T 



ftT RANUPi-l 

FLaT 

PUSHF 

RAiNiHUM 
POPF 

FLOP1 
TAf) M4 

Tl 

I t-'KLAC 

Tl 

.-2 

I TFLAH 

I PFLaP 

I THAU 



OCA 
JMS 
IS? 
JMP 
JMS 
JMS 
JMS 
PUSHF 

f LAC1 
POPF 

RANDOM 
OCA FLAU3 
OCA FLAC0 
TAH FLAC3 
SMA CLA 
RETURN 
IS/ FLAG? 
SKP 

IS? FLAC1 
NEGATE 
RETURN 



/R = OlU RANDOM N:UMBFw 
/ALREADY SH1FTFU LEFT 12 HlIS 



/SHIFT 4 MORE TO GET K*^ti^ 



/♦R 


= 


R« 


(2tl<H 


•1 ) 


/*? 


= 


R« 


<2tl7« 


?) 


/♦R 


= 


k« 


(2*17* 


•3) 



/Save *e* random numhl* 

/MAKE IT A 2-WORD FkACTI»um 
/CHECK SIGN 

/POSITIVE 

/NFGATIVE, TAKE IS COMPL^ME^T 





FOCAL, 


5/69 •«*»»»*«« 


PAL10 


V141 


6-JUL-70 11:36 P, 


3083 














3084 


7406 


1407 


FLPOWt 


TAD I 7 


/OP 


: RAISE FLAC TO POWER 


3085 


7407 


45C3 




PUSHA 


/SAVE 


FLOATING POINTER 


3086 


7410 


4504 




PUSHF 


/SAVE 


FLAC 


3087 


7411 


0044 




Ft AC 






3fe)88 


7412 


4505 




POPF 






3089 


7413 


7545 




FLTEMP 






3090 


7414 


4504 




PUSHF 


/GET 


FLOP 


3091 


7415 


0040 




FLOP 






3092 


7416 


4505 




PUPF 






3093 


7417 


0044 




FLAC 






3094 


7420 


4452 




FIX 


/FIX 


OPERAND 


3095 


7421 


7710 




SPA CLA 






3096 


7422 


7001 




IAC 






3097 


7423 


1045 




TAD FLAC1 




3098 


7424 


7640 




S*A CLA 






3099 


7425 


4526 




ERROR 


/RAISING TO TOO HIGH A POWER 


3100 


7426 


1046 




TAD FLAC2 




3101 


7427 


3350 




DCA XFL 






3102 


7430 


4407 




FtNT 


/PUT 


1. IN FLAC 


3103 


7431 


5661 




FGT I ONFH 




3104 


7432 


0000 




FEXT 






3105 


7433 


1350 




TAD XFL 






3106 


7434 


7450 




SNA 






3107 


7435 


5255 




JMP FLXE^D 


/Xt0=l. DO NOT MULTIPLY 


3108 


7436 


75fi0 




SMA 






3109 


7437 


5246 




JHP RAISTP 


/RAISE TO * POWER 


3110 


7440 


4407 




FENT 




/RAISE TO - POWER 


3111 


7441 


4345 




FDV FLTEMP 




3112 


7442 


6345 




FPT FLTEMP 




3113 


7443 


5661 




FGT I ONFP 




3114 


7444 


0000 




FEXT 






3115 


7445 


5250 




JHP .43 






3116 


7446 


7041 


RAISTP, 


CIA 






3117 


7447 


3350 




DCA XFL 




/SET COUNTER 


3118 


7450 


4407 




FENT 




/DO MULTIPLICATIONS 


3119 


7451 


3345 




FMY FLTEMP 




3120 


7452 


0000 




FEXT 






3121 


7453 


2350 




IS* XFL 






3122 


7454 


5250 




JMP .-4 






3123 


7455 


1413 


FLXEND, 


POPA 




/RFSTORE FLOATING POINTE& 


3124 


7456 


3407 




DCA I 7 






3125 


7457 


5660 




JMP I .< 


►1 




3126 


7460 


66*1 




FPNT+1 






3127 


7461 


1573 


O'MLP. 


FLTGNE 







PAGE 80 



FOCAL, 5/69 



PAL1C* V141 



A-JUL-78 



lf.38 PAGE 81 



3128 /FLOATING SQUARE HOOT 

3129 7462 1045 FSQT. TAP FLACl 

3130 7463 7510 SPA 

3131 7464 4526 ERROR 

3132 7465 7650 SNA CLA 

3133 7466 55^0 RETURN 

3134 7467 1044 TAD FLACP 

3135 7470 7510 SPA 

3136 7471 7020 CML 

3137 7472 701*5 RAH 

3138 7473 3044 RCA FlACP 

3139 7474 1334 TAT) SuCy^ 

3140 7475 3045 OCA FLACl 

3141 7476 4407 SULUOP. FENT 

3142 7477 6345 FPT FLTE^P 

3143 7500 5560 FGT I FLAKGP 

3144 7501 4345 FDV FLTEHP 

3145 7502 1345 FAD FLTEHP 

3146 7503 0000 FEXT 

3147 7504 7W4kJ CMA 

3140 7505 1044 TAD FLAC0 

3149 7506 3044 T)CA FLACP 

315W 7507 1^44 TAD FLAC? 

3151 7510 7041 CIA 

3152 7511 1345 TAO FLTEMp 

3153 7512 764tf SZA CLA 

3154 7513 5276 JMP SULOOP 
31^5 7514 1045 TAD FLAC1 

3156 7515 7041 CIA 

3157 7516 1346 TAD FLTEMP+1 

3158 7517 7640 S2A CLA 

3159 7520 5276 JMP SULOOP 
316k) 7521 1046 TAD FLAC2 

3161 7522 7041 CIA 

3162 7523 1347 TAD FLTEMP+2 
3lo3 7524 74510 SNA 

3164 7525 5500 RETURN 

3165 7526 7500 SMA 

3166 7527 7041 CIA 

3167 7530 7001 IAC 

3168 7531 7650 SNA CLA 

3169 7532 5500 RtTu^.M 
317*3 7533 5276 J^P SuLuPP 
3171 75.<4 3^15 SuCuK. 3015 



FUNCTION 

/TEST SIGN 

/SQUARE ROOT OF NEG NU^bfR 

/££.RG, RESULT IS ZERO 
/CONSTRUCT INITIAL APPHOX I MAT I ON 
/BY HALVING EXPONENT 



/MAKE NEW APPROXIMATION 
/NFW X=(N/X*X)/2 
/ORIGINAL ARG 



/COMPARE OLD AMD NEW APPROXIMATIONS 



/EXPONENTS NOT EQUAL 



/HIGH ORDER NOT EUUaL 



/COMPARE LOW OROERS TO 
/WITHIN PLUS OR MINUS OnF « I T 



»••••• FOCAL, 5/69 *••••»•*. PALIS V141 <S-JUL-70 1.1:38 r> A G£ bX 

3172 /FUNCTION TO EVAI UATE SIGN PART OF FLAC 

3 1 7 3 /RESULTS: -1 FOR NEGATIVE. FOR 2ERO, + 1 FOR POSITIVE 

3174 7535 1164b . FSGN, TADFLAC1 

3175 7536 7450 SNA 

3176 7537 5343 JMP .-M /*FHQ, SET RESULT To 

3177 7540 7710 SPA CLA 

317b 7541 1034 TAD M* /NEGATIVF (-1) 

3179 7542 70f- ! l IAC /POSITIVF (*1> 

3180 7543 ,4440 FLOAT /FIOAT C(AC) = -1.0,1 
3101 7544 55k* RETURN 

3182 7545 OIGbUFs. /OUTPUT HIGIT PUFFFR (ft WO^uS) 

3183 7545 0000 FLTEMP. /TEMPORARY REGISTERS 

3184 7546 £000 fl 

3185 7547 0000 

3106 7550 ASKHUF = *. / M ASK M INPUT BUFFER (TO E^O Of- PAGE) 

3187 7550 0000 XFL. 

3188 $ 



FOCAL. 5/69 *•«••»**« 



PALltf 



V141 



6-JUL-70 



1U3« 



°Af>t d?-1 



1000 01111111 11111 
*1»* lllllltl 11111 


111 llllllll 1 
111 llllllll 1 


1111111 
1111111 


1111111 
1111111 


1 11111111. 
1 11111111 


I 1 1 1 1 1 1 1 

II 11 11 •■•/! 


iimin 


200 llllllll 11111 
• •300 llllllll 11111 


111 11111111 1 
111 11111111 1 


1111111 
1111111 


1111111 
1111111 


1 11111H1 
1 11111111 


11111111 
1 1 111 1 M 


I 1 1 1 1 l 1 . 1 

II 1 1 1 U I 


.'4wM llllllll 11111 
5**0 llllllll 11111 


111 11111111 1 
111 11111111 1 


1111111 
1111111 


111111.1 
1111111 


1 11111111 
1 11111111 


1111 1. 1 1 1 
1 1 1 1 U 1 1 


11111111 
1 1 11 11 1 1 


■;.6M 11111111 urn 

'700 llllllll 11111 


111 llllllll 1 
111 11111111 1 


11H111 
1111111 


11H111 
1111111 


1 11111111 

i mum 


11111111 
11111111 


1 111 1 1 i i 
11111 HI 


lk»00 llllllll 11111 
1100 llllllll 11111 


111 llllllll 1 
111 11111111 1 


1111111 
1111111 


1111111 
1111111 


1 11111111 
1 11111111 


1 1 1 1 1 1 1 L 

1 1 1 1 1 m 


mum 
1 in i ii l 


l200 llllllll 11111 
13*50 llllllll 11111 


111 11111111 1 
111 11111111 1 


1111111 
1111111 


1111111 
1111111 


1 11111111 
1 llllllll 


1111.1111 
mum 


11111 1. 1 1 
1 U1U1 i 


1400 llllllll 11111 
l5*50 llllllll 11111 


111 11111111 1 
111 11111111 1 


1111111 
1111111 


1111111 
1111111 


1 11111111 
1 11111111 


111111U 
UlllUl 


ilium 

IllJ'Ul 


1600 llllllll 11111 

1700 llllllll 11111 


111 llllllll 1 
111 llllllll 1 


1111111 
1111111 


1111111 
1111111 


i ilium 
i 11UU11 


11111U1 
111UU 1 


11111m 
iiiiij.il 


2000 llllllll 11111 
?1*0 llllllll 11111 


111 11111111 1 
111 11111111 1 


1111111 
1111111 


1111111 
1111111 


l 11111111 
i llllllll 


1 1 1 1 1 U 1 

mum 


in ii u 1 

1 ll! 1 U 1 


2200 llllllll 11111 
2300 llllllll 11111 


111 llllllll 1 
111 llllllll 1 


1111111 
1111111 


1111111 
1111111 


l 11111111 
i 1111U11 


mm 11 
ilium 


mil iu 

111H1U 


2400 llllllll 11111 
2500 llllllll 11111 


111 llllllll 1 
111 11111111 


1111111 

00*50080 


1111111 

00^0M0<" 


i llllllll 

00000000 


liuim 

0y»00ivv»/j 


mmii 


2600 llllllll 11111 
2700 llllllll 11111 


111 llllllll 1 
111 llllllll 1 


1111111 
1111111 


1111111 
1111111 


1 11111111 
1 11111111 


1 1 1 1 1 1 1 1 

ilium 


11111111 

11UU11 


3000 llllllll 11111 
3100 llllllll 11111 


111 llllllll 1 
111 llllllll 1 


1111111 
1111111 


1111111 
1111111 


1 llllllll 
1 11111111 


mum 
mum 


11111111 
1111111 1 


3200 llllllll 11111 
3300 llllllll 11111 


111 llllllll 1 
111 11111111 1 


1111111 
1111111 


1111111 
1111111 


1 11111111 
1 llllllll 


mum 
mmii 


urn in 

mini i 


3400 00000000 0000*! 
3500 00000000 0000^ 


000 llllllll 1 

000 00000000 


1111111 

00000B0 


1111111 

0000000 


1 11111111 

000000M0 


mum 


1 10, '}»</> 4 
■"■•tf00'-\.11 1 



3600 
3700 



FOCAL* 5'69 #*••«•**» 



PAL10 V141 



6-JUL-70 



1i:3ft PAGt b?-? 



4000 
41U0 



4200 
4300 



4400 
4500 



4600 
4 700 



stf00 
->100 



5200 
5300 



S4H0 
5500 



5600 
5700 



6000 
6100 

6200 
*300 

6400 
6500 

6600 
6700 



7000 
71H0 

7200 
7300 

7400 
7500 



llllil 
111111 



llllil 
llllil 

llllil 
llllil 

111111 

00000?! 
111111 

nun 



mm 
111111 

111111 

111111 

111111 
mm 



1111111 
1111111 



mini 
1111111 



1111111 
1111111 



1111111 

P00id(*09 



1111111 
1111111 



1111111 
1111111 



1111111 
1111111 



1111111 
1111111 



1111 

1111 



1111 
1111 



1111 
1111 



1111 

0000. 



1111 
1111 



1111 
1111 



1111 
1111 



1111 
1111 



lmiii 
1111111 



1111111 
1111111 

1111111 
1111111 

mini 

0000000 

1111111 
1111111 



1111111 
1111111 

1111111 
1111111 

1111111 

00000P0 



1111111 
1111111 



1111111 
1111111 

1111111 
1111111 

1111111 

0000*5 ->0 

1111111 
1111111 



1111111 
Ulim 

111U11 
1111111 

11111111 

rf t ; ' ( j "» 



llllil 
llllil 



111111 
111111 

111111 
mm 

in in 

/ <* vi \a ii 

111111 
111111 



111m 
m 11 1 



mm 
111111 



11mm 

V: ? \f) 11 <3 



7600 
7700 



FOCAL* 5/69 «»*«*»•«* 



PAL10 V141 



6-JUL*70 



1i:38 



PAGE «2-< 



ADO 0135 

ALIST 1133 

ARGNXT 1723 

ASK 12*6 

ASKBUF 755k) 

ASKEND 3317 

ASKLS2 6772 

ASKLST 5776 

ATLIST 1561 

ATSW 7131 

AXIN 7010 

AXOUT ?017 

HACK 64e:6 

BUC0 6252 

HUCl 6266 

H0C2 63tfl 

BOCONV 617k) 

HUE NO 6145 

BOENDP 6445 

BOSCAL 62V53 

BEGIN 3432 

BOTTOM 7027 

HUFbFG 3432 

HUFbOT 3363 

HUFR 7134 

BUFST 6235 

ftUFTOP 3364 

Cl/0 7006 

G2/0 7015 

C240 7033 

C253 6115 

C260 7036 

C305 6146 

C43 5763 

C7767 7367 

CCN 0060 

CFimR 5766 

CFRS 7075 

CFkSX 0227 

CHAR 0142 

CHIN 2463 

CLF 7057 

CMB1NE 6757 

CNTR 0132 

COL 1233 

COLP 3251 

COMBOT 7226 

COf'BOF 7074 

COMEIN 2527 

CO*GO 1164 

CO*LST 7756 

COWMEN 7620 



COHOUT 2600 

COUTPT 3373 

CPRINT 3247 

CTSF 322.3 

OBCONV «^600 

DBLOOR «-656 

D6TENM 5653 

DCONT 7462 

DCOONT 6225 

DEPGSw <*151 

OECfcXP ^764 

OECIN1 «=757 

DEC I NT 6&10 

DECNUn 7164 

DECP C'133 

DECR 62414 

nELETE 2111 

DGRP ('4 23 

DGRPl 7432 

DIG ^425 

DIGBOF 7545 

DIGIT Ml 63 

DIGITS Mwtt6 

DIRECT 6635 

tilVCNT 7271 

DMPSlv 7152 

DO 7416 

DDK 2130 

DONE 2146 

DOONE 7454 

ORAL 7^45 

DRALP 7247 

DRFCTR 6636 

DVLOOP 7226 

DVSETU 7211 

ECHO 2471 

tCHOLS 1612 

ECHP 3255 

EFOP 7131 

EFUN 1742 

EFUN2 1764 

EFUN3 2*556 

EFUN3I 7100 

FINPU1 «=>701 

FLPAR 1/53 

FNU PW76 

ENDLN ^517 

ENDT 7/77 

FNUM 1732 

EPAR j7lk) 

EPAR2 17S5 

ERASE 2226 



ERG 2252 

ERL ?25<3 

ERR2 2736 

ERROR 4526 

FRR0R2 4526 

FRROR3 4526 

FRPOR4 4526 

ERR0R5 2735 

ERV 2235 

ERVX 224/ 

ETERM 1641 

FTERM1 1615 

FTFRM2 1647 

FTFRHN 1636 

fVAL 1601 

FVLN 737*: 

EXIT 2644 

EXITJ 2657 

EXTR 2334 

F10P 0414 

FCONT 1064 

rE^n 1126 

FEND3 231t 

FINDLN 4516 

FINON 2271 

FINPUT 0073 

FIX 4452 

FIXC 7331 

F1XSGN 7055 

FLAC 0044 

FLAC0 0044 

FLACl 0045 

FLAC2 0046 

FLAC3 0047 

FLAD3 6770 

FLAOD 6720 

FLAODR 6631 

FLARG 2034 

FLARGP 0160 

FLOIG 6131 

FLOIV 7171 

FLGET 6647 

FLINST 5767 

FLMUL 7077 

FLNOR 6762 

FLOAT 443^ 

FLOP 004t; 

FLOP0 004</i 

FLOPl 0041 

FL0P2 0042 

FL0P3 0043 

FLOPR 1674 



FLH1 724o 

FLf'UT 6122 

FL"UTP 6?36 

FL^'J^- 74'«6 

FLHlF;\i »-7/.S 

FLfJT '.C*3 

FLb.JH 6717 

FLTtrv 754o 

F|_UN ^77 

FLTJI-L t57o 

FL1PT 7335 

FLTXR i«t!4 

FLTiffe* 157^, 

FLXEK'I) 74*5 

F^fcGS* 'V.:<M 

FNUKM 7 <.'*.' 

FNTAHF *57l 

FiMTAHL 221/ 

FOR 1tf?4 

FODTPU "£72 

FP10P f4l5 

FPNT t 6 Z 

FPR*T 63*4 

FRA* 7351 

FnSI 342c" 

FRSTX 343c 

FSG:>l 7535 

FS'.'T 7462 

FTXR H25 

FTXS 1124 

GEG 0356 

GE*u 23<o 

GETl 23*1 

GET3 23^o 

GET O. u 1 1 '4 

GEL <o > 

GtTi/Ar, 1411 

GEXI1 t>3 3J 

GFNJl 1512 

GIM; "14.-. 

f-Ll^ A \ -I 

< ■'< t , ' ." 

G T j ■ > 1 . 

GRPISI 2451 

GS1 1443 

GS2 11*7 

GS3 1447 

GS4 14^4 

GS5 \-y>. 

GTE:' •• ->i 

GTEol a 34 7 



FOCAL* 5/69 «•«•*»•»• PAL10 V141 



6-JUL-70 



HELLO 3274 

HINBUF B037 

HP 3301 

HPT ?037 

HREAD 646$ 

HREAD2 6472 

HSGO 6506 

IBAR 0212 

IF 0776 

IGNOR P217 

fN 6416 

INBARR 3330 

INBUF ?664 

INDEV 0140 

INGT 3345 

INL1ST 0564 

INPfNT 0366 

INPUTX 0274 

INSfGN 5765 

INTABL 6004 

INTASK 3306 

INTDO 6055 

INTERM 3347 

INTERP 1226 

INTG 1272 

INTNEG 6067 

INTOUT 6042 

INTPTR 6114 

INTRPT 2603 

INTSU8 6060 

IOBUF 3400 

IOSW 3305 

IOVRL 5761 

IRARAC 5760 

iRFTK 0230 

LASTLN 0150 

LASTOP 0130 

LASTV 0155 

LIBRAR 2735 

LINENO 0143 

LIST3 0060 

LIST6 0054 

LISTGO 1402 

LNERR 0361 

LPRTST ?077 

H100 0062 

Mil 0070 

M12 6230 

M13 1123 

M137 2377 

M14 7170 

H2 0034 



M20 0025 

M240 0t>63 

M27 >764 

M3 PiJ66 

M30 7314 

P4 7345 

M40 2376 

M5 0067 

H77 0023 

MtiREAR 2602 

MCK 0ii65 

HOIG 6147 

MUIGIT 6226 

MF 0607 

PFLT 0066 

HINUSA 0003 

MODIFY 1273 

MPER 0^64 

MUL10P 6234 

HULPLK 7000 

MULT10 5742 

HULT2 5734 

MULT2I 5/56 

MULT2P 6233 

NAGSW 0141 

NEGAC 6676 

NEGATE 4450 

NEGOP 6662 

MEGOP1 7036 

NEGSGN 6167 

NLwtllG 5614 

NMEXIT 7i)25 

N0H2 7*510 

NORC 7055 

MORENO 7032 

NORF 6771 

NOTDIG 5650 

NRIOOP 7016 

NTEXIT 1550 

NTSTl 1552 

NTST2 1553 

ONEINC 1117 

ONFP 7461 

OPNEXT 1610 

OPTARL 1731 

OPTARS 2026 

OPTC 3382 

OPTCl 3250 

OPTCOL 3244 

OPTQOP 2734 

OPTE 3252 

OPT I 3303 



1 


11:38 P 


AGE d2-4 




OPTION 


6446 


PER 


P.-22 


OPTK 


6457 


PERIOD 


5612 


OPTLST 


240/> 


pgoto 


1-22 


OPTM 


3271 


P1NC 


1122 


OPTN 


3253 


Pk/lpu 


'3122 


OPTP 


3234 


pj_p<< 


1-.J?3 


OPTR 


6453 


POP A 


1 4 1 ,5 


OPTR0 


2661 


PUPK 


4b- , 3 


OPTRET 


6461 


PUR J 


h ^.* c 


OPTR I 


2663 


pgots 


\ - , A , ; 


OPTRO 


2662 


PnPP 


1 1 '3 


OPTS 


3256 


PrtI MTC 


" 5 1 <L 


OPTT 


3237 


pKi'Ur; 


45 m 


OPTTBL 


2174 


PKiU; 


' '. 1 n 


OPTTOO 


3203 


Pk.'GFS 


' M j 


OPTTL 


3221 


PK0.J1 


1 3 7 


OPTX 


324 3 


PRUU? 


7 7 2 


OPTXIT 


3241 


PSWiT 


5 ft' . 


OUT 


2477 


PT1 


»'!-> -1 


OUTA 


6437 


P72 


1 1 < 2 


OUTCR 


2510 


PHn 


c\f l 


OUTOEV 


013/ 


PTF.^Pl 


(,? < > 


OUTP 


615k. 


PuS iA 


4~ •' j 


OUTPT 


3365 


P u S h P 


''» ') " 4 


OUTS 


124H 


PUSHJ 


4n '1 


OUTX 


2507 


R6 


6.i4/, 


OVCHEK 


5633 


RAISTP 


/^n 


OWAIT 


3225 


•v'aLAC 


/ :</ 


P0 


1523 


RaMiPk. 


7 34 


P13 


0005 


» A P AC 


7*^1 


P17 


0031 


KaRaCI 


6 7* 7 


P177 


0026 


^arup 


7271 


P2 


0035 


M^uPi 


67*t 


P27 


6765 


PEAUC 


451 vi 


P277 


0032 


RECUVR 


274-3 


P337 


0054 


REGAIN 


'/i*2 


P4000 


P225 


RESTR 


*51 7 


P7600 


0024 


RET 


n3^l 


P77 


0071 


PET HP 


lt>5« 


P7700 


0062 


RETURN 


55 *., 


PACBUF 


3023 


PFl AT 


7 ' 4 3 


PACKC 


4507 


PU 2 


bt'Sl 


PACKST 


015 3 


WUT 


3 • * . 


PACLS2 


1204 


P T R A C 


57*, 


PACLST 


3056 


H1L6 


4'>V... 


PC 


0145 


RUP1 


3 • '■ 5 


PCl 


062H 


PUP 2 


3/77 


PCHK 


0510 


RU*3 


31 1 


PCK1 


3042 


SAVAC 


2W 


PU2 


0532 


SaVLK 


?T-M 


P03 


«550 


SyArt 


1 '- i 


POLXR 


0013 


SCALFU 


*2 -i-i 



/•••••• FOCAL, 


5/69 


SCHAH 


1312 


SCONT 


130 7 


SDL OOP 


7142 


SU*ULT 


7133 


SQOaN 


622tf 


SQSHIF 


7155 


SET 


1024 


SEX 


1357 


SEXC 


0752 


SFINAL 


l*)6tf 


SFOUNO 


1325 




7072 


SGNTST 


5755 


SliOT 


1331 


SHFLOP 


6746 


SIGOUT 


61tf>0 


SIN 


27ki6 


SK1PNP 


31314 


SKPNP 


2732 


SNLIST 


6115 


SOKTb 


1333 


SOKTC 


4511 


SO^TCN 


0127 


SORTJ 


4510 


SPACLA 


7063 


SPLAT 


3124 


SPNOR 


4521 


SiJCON 


7534 


SULOOP 


7476 


SKNLST 


1376 


START 


0177 


STARTV 


0134 


STRING 


3323 


SUBS 


1524 


Tl 


0156 


T2 


0157 


TAP 


1362 


TABCTK 


0053 


TASK 


1210 


TASK4 


1252 


TASKCL 


1222 


TCWLF 


1250 


TCPLF2 


1254 


TDEND 


3170 


TOLOOP 


3131 


TOOUTP 


3174 


TOTEXT 


3175 


TDUHP 


3125 


TELSH 


2660 


TEMPI 


0162 


TEHP2 


0163 


TEMP3 


0164 



PALI* 


V141 


6-JUL-70 


11-.3 


TLNPT 


6231 


XF INO 


2265 


TERMS 


2 W f'1 6 


VFIX 


7311 


TfcSTC 


4525 


XFL 


75S V. 


TESTN 


4^22 


XFLOAT 


7332 


TEXTP 


0tfl7 


XGFTLN 


<*312 


Tf LAO 


7344 


XI 33 


2665 


TGRP2 


?473 


XINT 


1156 


THISLN 


('146 


XOUTL 


?t>7b 


ThISOP 


014 7 


XPOPJ 


1">5f> 


TINT 


2625 


XPRNTL 


615i 


T1NTR 


1260 


XPUSHA 


05^1 


TLIST 


1142 


XPUSHJ 


0523 


TLIST2 


14*5 


XRT 


0011 


TLIST3 


1162 


XRT2 


012 


T0T0I6 


0w51 


XRT3 


*0l 6 


TQUOT 


1241 


XRTL6 


(AJi'5 


TRPLAD 


^713 


XSORTC 


4 7 3 :s 


TSTERM 


4565 


XSPNOR 


1524 


TSTGRP 


4524 


YTESTC 


1^713 


TSTLPK 


4523 


XT£STN 


153.5 


TSTSGN 


f030 


X1STER 


2514 


TSWP 


3233 


XXX 


6117 


TTXTR 


1237 


XXXP 


6237 


TTXTS 


1236 


y'ERGUO 


7216 


TXTRFS 


2443 






TXTSAV 


2435 






TYPE 


12^7 






TYPE2 


1227 






USERT 


6002 






USERTP 


3270 






UTE 


2317 






UT(i 


2326 






UTRA 


2315 






UTX 


2337 






VAL 


2463 






WAITP 


2733 






WALL 


0671 






WEXIT 


0703 






WRITE 


0641 






WTEST2 


0660 






WTFSTG 


0674 






WTXR 


0712 






WTXS 


0711 






WX 


0676 






X0 


1161 






XABS 


2053 






XAOC 


2414 






XCT 


0020 






XCTIN 


0136 






XOXS 


1153 






XOYS 


1145 






XENOLN 


2417 







/••••»• fOCAU 5/6* »•»•»*»•# fALli ¥141 6-JUL-70 1H38 PAGE 82*6 

ERRORS DETECTED* 
LINKS GENERATED*. « 
RUN-TIME: 28 SECONDS 
3K CORE USED 



/FOCAL 5/69 


EOWAHO 


TAFT 


6/10/69 PALI* V141 6-JUL-70 


1 




/FOCAL 


5/69 fDWARU TAFT 6/10/69 


2 




/tXTFNDtn FUNCTION PACKAGE 


3 




/ 




4 




/FSIN: 


S1MX) X IN RADIANS 


5 




/FCus: 


COS(X) X IN KAOIANS 


6 




/F aTn: 


ARC TA^(X) RESULT IN RAOlANS 


7 




/ffxp: 


EXP(X) 


6 




/FLOG: 


LN(X) 


9 




///// 




10 




/ULF IMTIONS 


11 




FIXMRl 


FAU = lfi00 


12 




FIXkRI 


FSH=2000 


13 




FIXMRl 


FMY = 3c-00 


14 




FIXMPi 


F n V = 4 1* 


15 




FtXhRl 


FGT=50«>w 


16 




FIXMRi 


FPT=6?tfv» 


17 


7wO0 


FNH = 7wt*0 


18 


4407 


FLNT=4407 


19 


0000 


FtXT=0 




20 






FIXTAB 


21 




///// 




22 


4450 


NtGATL: 


: 4450 


23 


1045 


GLTSGN= 


' 1045 


24 


55*10 


KLTURi\! = 


: 5500 


25 


0010 


S»* = 


10 


26 


4452 


FiX = 


4452 


27 


4503 


pusha= 


45^3 


2b 


1413 


POPA = 


1413 


29 


0W44 


flac = 


44 


30 


7545 


FLTLHP= 


■ 7545 


31 


1573 


FLTON'La 


' 1573 


32 


0013 


PuLxR= 


13 


33 


4526 


FKRUP= 


4526 


34 


4430 


FLOATS 


4 4 30 


35 


0571 


FnTAPF = 


■ 571 


36 


0027 


ROTTOM: 


= 27 


37 


1164 


CQMGO= 


1164 


38 


4510 


SORTJ= 


4510 


39 


0067 


M5 = 


67 


40 


0132 


CNTK = 


132 


41 


0010 


AXIN = 


10 


42 


4565 


Ti>TERH: 


: 4565 


43 


0616 


PKOC = 


616 


44 


2735 


EHR0R5: 


■ 2735 


45 


5600 


DtiCONV: 


: 56P0 
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/FOCAL 5/69 



FUWARU TAFT 



6/10/69 PALI?! V141 



6-JOL-70 



1. 2 : 1 (» PAf-L 2 



46 
47 

4b 

4V 
50 
51 
52 
53 
5<* 
55 
^6 

5 7 
55 
59 
60 
61 
62 
63 
G4 
65 
66 

6 7 
6b 
69 
70 

n 

72 
73 
74 
75 
76 
77 
7.8 
79 
60 
hi 
62 
»3 
64 



<027 

v 6v 
H6ir 1 l 
ti6l"2 
i*6H3 
i 6C4 



1174 

6555 

6556 
6557 
6560 
6561 

6562 
6563 
f>564 
656tj 
6566 
6567 
6570 
6571 
6572 
6573 
6574 

6575 
6576 
6577 

0175 



P»w?7 
5112 

VbVid 
5335 
52^2 
5454 
•-117 
H113 



1174 
6556 
65^5 
03t 4 

4510 
6554 
F022 
4526 

1»67 
3132 
1375 
301k' 
1175 
3410 
2132 
5366 
1376 
3027 
5261 

A577 
5577 
6562 
P175 
2 735 



/TOP OF TLXT 

/POlfMTFKS TO tXTFNOKP F'U'tCT in'.-«S 



»riOTTUM 

FCOS-1 
eFNTAbF *7 

F m T N 

FLXP 

FLOG 

FSIN 

FCOS 
///// 

/LNAPLF. A "LlbPA^Y liFLFTF'" UOMVANU 
/«HICM WILL T'tLLTL THL EXTFNOEO FONCTIONS AnU 
/FRFF MORE FOH OSER AHFA. 
»UOMGU*10 

LIBRARY 
*6555 

L1PLST. «|) 
///// 
L iPHAhYJSOHTj 



FRROP 



/"LIBRARY" - FXPANDAPLF CO**ANO 
L1BLST-1 
LlPGO-Li^'LST 

/ILLFGAL LIBRARY COMMAND 



///// 

LIHu. 



TAU M5 
OCA CNTK 
TAO txTAF' 
OCA AXlW 
TAP PLRROH 
OCA I AX IN 
I S/ CNTR 
JHP .-3 
TAP ('TOP 
OCA POTTPH 
JMP 6461 



/OFLFTF THF EXTENOFu F OPTIONS 



/SFT LRKOK5 POINTERS 



/MOVf TOP POINTER Op 

/OPTRLT (TO REACH EnD OF COrt*ANo> 



///// 

fxtap 
oiop> 

LlHGO 

• 175 

PLRROKi ERROR5 



FNTAPF+6 
ObCONV-1 
LIBD 



/FOCAL 


5/69 


FDWARD 


TAFT 


6/10/69 PAL10 


V141 6-JUL-70 


85 






/FOCAL 


EXTENDED FUNCTIONS 


66 




5113 


*5113 






87 






/ 


COSINE 




88 


5113 


4450 


FCOS* 


NEGATE 


/C0S<X)=SIN(PI/2-X> 


89 


5114 


4407 




FENT 




90 


5115 


1772 




FAD I PI? 




91 


5J16 


0000 




FEXT 




92 






///// 






93 






/ 


SINE 




94 


^117 


1045 


FSIN," 


GETSGN 




95 


5120 


7450 




SNA 




96 


5121 


5500 




RETURN 


/SIN(0)=0 


97 


5122 


7710 




SPA CLA 




98 


5123 


4771 




JMS I NEG2 


/SIN(-X)*-SIN(X) 


99 


5124 


3010 




OCA SN 




100 


5125 


4407 




FENT 




1«1 


5126 


4374 




FOV TwOPi 


/REOUCE MODULO 2 PI 


102 


5127 


6773 




FPT I X2 




103 


5130 


0000 




FEXT 




104 


5131 


4452 




FIX 




105 


5132 


4450 




NEGATE 




106 


5133 


4407 




FENT 




107 


5134 


7000 




FNR 




108 


5135 


1773 




FAU I X2 




109 


5136 


3374 




FMY TwOPi 




110 


5137 


6773 




FPT I X2 




111 


5140 


2377 




FSR PI 




112 


5141 


0000 




FEXT 




113 


5142 


1045 




GETSGN 


/X<PI? 


114 


5143 


7710 




SPA CLA 




115 


5144 


5353 




JMP PCHECK 


/YES 


116 


5145 


4407 




FENT 


/NO, SIN(X-PI )=-SIN(X) 


117 


5146 


6773 




FPT I X2 




118 


5147 


0000 




FEXT 




119 


5150 


1010 




TAD SN 




120 


5151 


7040 




CHA 




121 


5152 


3010 




OCA SN 




122 


5153 


4407 


PCHECK, 


. FENT 


/X<PI/2? 


123 


5154 


5773 




FGT I X2 




124 


5155 


2772 




FSP I PI? 




125 


5156 


0000 




FEXT 




126 


5157 


1045 




GETSGN 




127 


5160 


7710 




SPA CLA 




1?8 


5161 


5367 




JMP PAL GO 


/YEU 


129 


5162 


4407 




FENT 


/NO, SIN(X)=SI*'(PI-X) 


130 


5163 


5377 




FGT PI 




131 


5164 


2773 




FSP I X2 




132 


5165 


6773 




FPT I X2 




133 


5166 


0000 




FEXT 




134 


5167 


5770 


PALGO, 


JMP I .+1 


/PERFORM POWFR SFRlES 


135 


5170 


5540 




PALG 
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/FOCAL 


5/69 


EUwARU 7AFT 


6/10/69 PAL 


136 








137 


5171 


5321 NLG2. FNEG 


138 


5172 


5413 PI? 


»* PIOT 


139 


5173 


5325 X2, 


X 


140 


5174 


001:3 Twopn ?\6b*> 


141 


5175 


3110 


3110 


142 


5176 


37M 


3761 


143 


5177 


00 02 PI» 


0002 


144 


521-0 


3110 


3110 


14b 


5201 


3761 


3761 


146 




/ 


EXPONENTIAL 


147 


5202 


1045 FtXp, GETSGN 


148 


5203 


7710 


SPA CLA 


149 


5204 


4 321 


JMS FiMLG 


150 


5205 


3010 


UCA SN 


m 


5206 


4407 


FENf 


152 


5207 


3272 


FMY IG2E 


1*3 


5210 


6325 


FPT X 


1*54 


5211 


0000 


FEXT 


155 


5212 


4452 


FIX 


156 


5213 


4503 


PUSHA 


157 


5214 


4450 


NEGATE 


158 


5215 


4407 


FEM 


159 


5216 


7000 


FNR 


160 


5217 


1325 


FAD X 


161 


5220 


6325 


FPT X 


162 


5221 


3325 


FMY X 


163 


5222 


6330 


FPT XSQK 


164 


5223 


1267 


FAD DF 


165 


5224 


6733 


FPT I TP 


166 


5225 
52?4 


5264 


FGT CF 


167 


4733 


FDV I TP 


168 


5227 


2325 


FSR X 


169 


5230 


1256 


FAD Ai- 


170 


5231 


6733 


FPT I Tp 


171 


5232 


5261 


FGT PF 


172 


5233 


3330 


FMY XSQK 


173 


5234 


1733 


FAD I TP 


174 


5235 


6733 


FPT I TP 


175 


5236 


5325 


FGT X 


176 


5237 


4733 


FOV I TP 


177 


5240 


3275 


FMY Tw() 


178 


5241 


1734 


FAD I ONFPT 


179 


5242 


0000 


FEXT 


180 


5243 


1413 


POPA 


181 


5244 


1044 


TAD FLAG 


182 


5245 


3044 


OCA FLAG 


183 


5246 


2010 


IS? SN 


184 


5247 


5500 


RETURN 


185 


5250 


44*7 


FENT 


186 


5251 


6325 


FPT X 


187 


5252 


5734 


FGT I ONFPT 


168 


5253 


4325 


FOV X 


189 


5254 


0000 


FEXT 


190 


5255 


55^0 


RETURN 



V141 6-JUL-70 I2:it* p ACt 



/TAKE ^HSULUTE VALUE 



/SAVF INtCGER PART 



/R|- f A 1 r: FRACTIONAL PARI 



/EXP(-X)=1/EXP(X) 



CAL 


5/69 


LOWAHU 


TAF T 


6/10/69 PAL10 V141 6-JUL-70 




191 






/tXH 


AND ARCTANGFNT CONSTANTS 




192 


5256 


0004 


AF. 


0004 




193 


5257 


2372 




2372 




194 


526k) 


1402 




14 02 




195 


5261 


7774 


BF , 


7774 




196 


5262 


2157 




2157 




197 


5263 


5157 




5157 




I9d 


5264 


0012 


CF. 


0012 




199 


5265 


5454 




5454 




200 


5266 


0343 




0343 




2 Hi 


5267 


0007 


OF, 


0007 




202 


5270 


2566 




2566 




203 


5271 


5341 




5341 




204 


5272 


0001 


LG2t » 


1 




205 


5273 


2705 




?7v 5 




206 


5274 


2435 




2435 




20 7 


5275 


0002 


TWO, 


0002 




206 


5276 


2000 




20 00 




209 


5277 


001*0 


RtTli 


0000 




21 


5300 


2427 




2427 




211 


5301 


2323 




2323 




212 


5302 


7775 


MLT2» 


7775 




213 


5303 


3427 




3427 




214 


5304 


7052 




7052 




21b 


5305 


0000 


RfcT*. 


0000 




216 


5306 


2437 




2437 




217 


5307 


1646 




1646 




216 


5310 


7773 


ALF2# 


7773 




219 


5311 


3306 




3306 




220 


5312 


5454 




5454 




221 


5313 


7777 


ALF1, 


7777 




222 


5314 


3304 




3304 




223 


5315 


4434 




4434 




224 


5316 


0000 


ALF*. 


0000 




225 


5317 


2437 




2437 




226 


5320 


1643 




1643 




227 






///// 






226 






/KOUTlNfc. TO NEGATE. FLAG AND RETUhN WITH AC= 


= 7777 


229 


5321 


0000 


FnFG* 







230 


5322 


4450 




NEGATL 




231 


5323 


7040 




CM* 




232 


5324 


5/21 




JhP 1 FinFG 




233 






/VAHlAHLFS 




234 


5325 


P 


X, 







235 


5326 


<* 









236 


5327 


V 000 









237 


5330 


0000 


XbQK. 







23« 


5331 












239 


5332 


0000 









240 






/POlNTfc'KS 




241 


5333 


7545 


TP, 


FLTfcMP 




242 


5334 


1573 


O.mFHT 


FLTONt 
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/FUCAL 5/69 



FUWARD TAFT 



6/10/69 PAL10 



V141 



6-JUL-70 



12:10 



PAGE 6 



244 
244 
245 
246 
24 7 
246 
249 
250 
251 
252 
253 
254 
255 
256 
257 
25b 
259 
260 
261 
262 
263 
264 
2ft5 
266 
267 
266 
269 
270 
271 
272 
273 
274 
275 
276 
277 
276 
279 
260 
281 
2«2 
2«3 
264 
2*5 
266 
267 
266 
2«9 



5335 
5336 
5337 
5340 
5341 
5342 
5343 
5344 
5345 
5346 
5347 
5350 
5351 
5352 
5353 
5354 
5355 
5356 
5357 
5360 
5361 
5362 
5363 
5364 
5365 
5366 
5367 
5370 
5371 
5372 
5373 
5374 
5375 
5376 
5377 
5400 
5401 
5402 
5403 
5404 
5405 
5406 
5407 
5410 
5411 
5412 



1045 
7710 
4321 
3010 
4407 
6325 
5325 
2734 
0000 
1045 
7710 
5357 
4407 
5734 
4325 
6325 
0000 
7040 
4503 
4407 
5325 
3325 
6330 
3302 
1277 
3330 
1305 
6733 
5310 
3330 
1313 
3330 
1316 
3325 
4733 

0000 

2413 
5207 
4450 
4407 
1213 
0000 
2010 
5500 
4450 
5500 



/ 
FATN, 



GU, 



ARC TANGFNT 

GETSGN 

SPA CLA 

JMS FNEG 

DCA SN 

FtNT 

FPT X 

FGT X 

FSH I ONFPT 

FEXT 

GETSGN 

SPA CLA 

JMP GO 

FtNT 

FGT I OrtFPT 

FOV X 

FPT X 

FEXT 

CHA 

PUSHA 

FtNT 

FGT X 



/TAKF. ABSOLUTE VALUE 



EXIT?, 



FMY 

FPT 

FMY 

FAD 

FMY 

FAD 

FPT 

FGT 

FHY 

FAD 

FMY 

FAD 

FMY 

FUV 

FEXT 

IS2 I PDl XR 

JMP EXIT? 

NEGATE 

FEMF 

FAD PIOT 

FtXT 

ISi* SN 

RETURN 

NEGATE 

WtlURlM 



X 

XSUH 

HET2 

BETl 

XSQR 

BET2 

I TP 

ALF2 

XSQR 

ALFl 

XSOR 

ALF2 

X 

I TP 



/SIGN FLAG 



/CHECK SIGN FLAG 
/SUBTRACT FROM PI/2 

/ARC T*N(-X)r-ARC TaN(X) 



CAL 


5/69 


FOWAHD 


TAKT 


6/10/6 


290 






/ARCTANGENT AN 


291 


5413 


0001 


PIOT, 


0001 


292 


5414 


3110 




3110 


293 


5415 


3761 




3761. 


294 


5416 


7771 


L«» 


7771 


295 


5417 


4544 




4544 


296 


5420 


1735 




1735 


297 


5421 


7774 


L7, 


7774 


298 


5422 


2236 




2236 


299 


5423 


4304 




4 30 4 


300 


5424 


7775 


L6» 


7775 


3U1 


5425 


4746 




4746 


3«2 


5426 


0771 




0771 


303 


5427 


7776 


L5, 


7776 


304 


5430 


2535 




2535 


305 


5431 


3301 




3301 


306 


5432 


7 7 76 


L4, 


7776 


307 


5433 


4113 




4113 


308 


5434 


7211 




7211 


309 


5435 


7777 


L3. 


7777 


310 


5436 


2517 




2517 


311 


5437 


0307 




03O7 


312 


5440 


7777 


L2» 


7777 


313 


5441 


4000 




4 0^0 


314 


5442 


4100 




410 


315 


5443 


P000 


Ll» 


M 


316 


5444 


3777 




377 7 


317 


5445 


7742 




7742 


318 


5446 


0000 


LUGL2* 


0000 


319 


5447 


2613 




2613 


320 


5450 


4414 




4414 


321 


5451 


7545 


TP1, 


FLTtMP 


322 


5452 


1573 


OimEH?, 


FLTONt 


323 


5453 


5325 


XI, 


X 



V141 6-JUL-70 12=1 '^ 



/PI/2 



/FO€ftt~5/69 



-CQHARB TAFT 



«/lf>/69 *»AL10 V141 



*-JUL-7fe) 



12:10 



PACt « 



3*4 






/ LOGARITHM 




325 


5454 


1045 


FLOG* GETSGN 




326 


5455 


7550 


SPA 
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